How to printout a specific number of sheets in a work book based on a value entered

[Ivn68]

I have a workbook where in the 1st sheet I have a spot to enter a value and then I want to click a button and it will print the next corresponding sheets in the work book. For example if 5 is entered it will print the next 5 sheets in the workbook

 

[Ivn68]

Help

 

[DanteAmor]

Try this

Sub test()
  Dim sh As Worksheet, n As Variant, i As Long
  Set sh = ActiveSheet
  n = InputBox("Enter a value", "PRINT SHEETS")
  If n = "" Or n = False Or Not IsNumeric(n) Or n < 1 Or n > Sheets.Count Then Exit Sub
  For i = 1 To Val(n)
    Sheets(i).PrintOut
  Next
End Sub