Printing with sequential numbers, but starting with a letter

[kiwi439]

I'm trying to print a receipt book with sequential order numbers.

I found a macro created by user btadams 10 years ago which works awesome for the sequential numbers but I'm looking to add the letter 'M' before each number to signify a manual docket.

Here is the original macro:

You can use a macro such as this:

Sub PrintJobs()
Dim i As Long, startnum As Long, lastnum As Long

    startnum = Application.InputBox("Enter the first job number to be printed", "Print Job Number", 1, , , , , 1)
    lastnum = Application.InputBox("Enter the last job number to be printed", "Print Job Number", 1, , , , , 1)

    For i = startnum To lastnum
        Range("B1").Value = i
        ActiveWindow.SelectedSheets.PrintOut
    Next

End Sub

 

[Fluff]

Just make this change

 Range("B1").Value = "M" & i

 

[kiwi439]

Works perfectly, thanks so much!

 

[Fluff]

You're welcome & thanks for the feedback