1) Put this formula into C2:
=A2+1
2) Install this macro into this workbook in a standard code module:
Option Explicit
Sub PrintLogoNumbers()
Dim First As Long, Last As Long, NUM As Long
First = Application.InputBox("Enter the starting number:", "First Number", 1, Type:=1)
If First = 0 Then Exit Sub
Last = Application.InputBox("How many numbers are needed:", "Total Numbers", 5000, Type:=1)
If Last = 0 Then Exit Sub
With ThisWorkbook.Sheets("Snum")
For NUM = First To First + Last - 1 Step 2
.Range("A2").Value = NUM
.PrintOut Copies:=1
Next NUM
End With
End Sub
Bookmarks