Hi Roger

With the list in Z1:Z10 it copy the name in A1 and print A1:G50 for all cells in the list

Sub test()
Dim cell As Range
For Each cell In Range("Z1:Z10")
Range("A1").Value = cell.Value
Range("A1:G50").PrintOut preview:=True
Next cell
End Sub




--
Regards Ron de Bruin
http://www.rondebruin.nl



wrote in message ups.com...
I have a form and I want to automatically print it out using a list of
employee names. The employee list is located on the same sheet as the
form. I just want to be able to have the macro insert name1, print the
defined range, insert name2, print the defined range etc. until the
last name has been printed. I just can't think of a way to get started.

Any help will be appreciated.

Thanks,

Roger