Sub PrintWeeklyPayPeriod()
'
'
'Is there a better selection than "As Range" when I only want to select one(1) cell? Dim SelCell As Range
Dim SelCell As Range

Set SelCell = Application.InputBox("Starting Point", "Select the date of the First Monday of a Pay Period", Type:=8)

'Test StartingPoint.Address
MsgBox "Cell selected was " & SelCell.Address

Selection.Copy
Sheets("Print Weekly Time Sheet").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'Primary Question
'At this Point I want to return to Sheet 1 and the cell that I selected
'with "Set SelCell = Application.InputBox("Starting Point", "Select the date of the First Monday of a Pay Period", Type:=8"
'How do I use the variable SelCell.Address?
Range(SelCell).Select

ActiveCell.Offset(6, -9).Range("A1:I7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Print Weekly Time Sheet").Select
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


End Sub