I have the following code but does not seem to work. It seem that I'm missing
something, but being a noves, I'm not sure what it is. I need to increase the
value in cell B12 by 1. Thanks

Sub printall()
'
' Keyboard Shortcut: Ctrl+t
'
Do Until B12 = 5
[B12].Value = [B12] + 1
Sheets(Array("Title", "Rules", "G - First Arrival")).Select
Sheets("Title").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("INPUT").Select
Loop
End Sub