Help with Merge and Print

LGray1380 

Let's say the employee names are in A2 and down on Sheet1.

You want the name to appear in C1 on the time sheets.

Macro:

Sub PrintTimeSheets()
    Dim w1 As Worksheet
    Dim w2 As Worksheet
    Dim r As Long
    Dim m As Long
    Set w1 = Worksheets("Sheet1")
    Set w2 = Worksheets("Sheet2")
    m = w1.Range("A" & w1.Rows.Count).End(xlUp).Row
    For r = 2 To m
        Application.StatusBar = "Printing " & r - 1 & " of " & m - 1
        w2.Range("C1").Value = w1.Range("A" & r).Value
        w2.PrintOut
    Next r
    Application.StatusBar = False
End Sub