VBA Print Page Range

[tycasey17]

I have a 75-page spreadsheet that I want to be able to print a page or a range of pages without having to specify the normal way. Is there a way to be able to have a dialog box or have a cell dictate which page(s) I need to be printed?

 

[Dossfm0q]

Sub PaagesPrint()
Dim PagesPrint As Variant
Dim FrmPage As Long
Dim ToPage As Long
    PagesPrint = InputBox("Type such as 1-2")
    
    FrmPage = Split(PagesPrint, "-")(0)
    ToPage = Split(PagesPrint, "-")(1)
    ActiveSheet.PrintOut From:=FrmPage, To:=ToPage
End Sub

 

[tycasey17]

I appreciate your assistance. I also for got to preface my question. I want to run this code on one sheet while it actually prints from a different sheet, if that makes sense?