Macro help needed please!!

[MPBJR]

I have a macro that I'm trying to expand to do a little more for me. Here is my current macro that works fine:

Sub GetDateTime()
    Set Rng = Selection
    For Each c In Rng
        If c.Column = ActiveCell.Column Then
            c.Value = Date
            c.Offset(, 1).Value = Time
        End If
    Next c
    ActiveWorkbook.Save

Here is the additional code I will add:

Sub TIMESTAMP()
'
    Sheets("TIME STAMP").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

My question is, is it possible to have the number of copies that print in the second code change to match the amount of rows I select in the range of the first code?

 

[Jonmo1]

This should do it.

Sub GetDateTime() 
    Set Rng = Selection 
    x = Rng.Rows.Count
    For Each c In Rng 
        If c.Column = ActiveCell.Column Then 
            c.Value = Date 
            c.Offset(, 1).Value = Time 
        End If 
    Next c 

    ActiveWorkbook.Save
    Sheets("TIME STAMP").Select 
    ActiveWindow.SelectedSheets.PrintOut Copies:=x, Collate:=True
End Sub

 

[MPBJR]

THANKS, WORKS GREAT!