Code Help

[jcaptchaos2]

I have this code that helps print the number of labels I need, when it asks the employee how many how many labels he/she needs they type a number in which is inserted into cell "AE1" I am also using cell "AE1" for the (1of36, 2of36, 3of36) where 36 is in "AE1". What I would like to do is still have the 36 placed in cell "AE1" but only print out 1 less label in this case 35.

Sub ShortLabel()
'
' Short Label Macro
'

'
        Application.ScreenUpdating = False

    Range("B1").Select
    Sheets("Standard Label").Select
    ActiveSheet.Unprotect
    
 
  Dim NumPages As Variant
 
  NumPages = Application.InputBox("How many Labels would you like to Print?")
  Do Until IsNumeric(NumPages)
    NumPages = Application.InputBox("Must be a number - try again!")
  Loop
 
Sheets("Standard Label").Range("AE1").Value = NumPages

  If NumPages = 0 Then Exit Sub
 
  With ActiveSheet
    .PageSetup.PrintArea = "$b$1:$w" & NumPages * 20
    .PrintOut
    ActiveSheet.Protect
    
    Sheets("Interface").Select
    Range("B2").Select
    Sheets("Short Box").Select
    ActiveSheet.Unprotect
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveSheet.Protect
    Sheets("Interface").Select
    Range("B2").Select
 End With
End Sub

 

[Jonmo1]

Perhaps

Sheets("Standard Label").Range("AE1").Value = NumPages -1

 

[jcaptchaos2]

Thanks Jonmo1, I will give that a try.