Sub PrintAndNumber()
  Dim totalSheets As Integer, rangeForNumber As Range, rangeString As String
  Dim x As Integer, wb As Workbook, ws As Worksheet
  
    'change how many sheets you want here.
    totalSheets = 5
    'change the cell where you want the page number to go
    rangeString = "A1"
    
    
    'auto setup
    Set wb = ThisWorkbook
    Set ws = wb.ActiveSheet
    Set rangeForNumber = ws.Range(rangeString)
    For x = 1 To totalSheets
      rangeForNumber.Value = x
      ws.PrintOut
    Next x
      
End Sub