Sub s() For i = 1 To 10 Sheet2.[a1] = Sheet1.Cells(i, 1) ActiveWindow.SelectedSheets.PrintOut NextEnd Sub