I have a list of 30 names. A macro should input the first name into cell A1,
print the spreadsheet, input the second name into A1, print etc.

The list can be either in a spreadsheet or in the VBA code.

I used to copy-paste the following code 30 times and had to replace {name}
each time. What is the more effective way? Thanx in advance!

Range("A1").Select
ActiveCell.FormulaR1C1 = {name}
Range("A2").Select 'to calculate cells again
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True