I have a spreadsheet with a PRINT button and the following code attached
(thanks to this help site!).  It works great, but I would like to add more
print options from a different worksheet (i.e. “Sales!$A$1:$AD$75”).  I’m not
sure how to write the code since I’m assuming the ActiveSheet… statement
should be replaced with something else??  I tried a couple different ways but
I got errors.

Private Sub cmdPrint_Click()
   
'Bring up an input box to select the page(s) that you want to print

   Dim Ans As Variant
   
'   Ranges for printing:
'
'    Page 1 Load/Generation, Range A1:AF52
'    Page 2 Sales/Purchase, Range A53:AF110
'    Both Pages", Title:="Enter A Number To Print", Default:=3
   
   
   Ans = InputBox(prompt:="1 = Page 1 Load/Generation, Range A1:AF52" & _
           vbLf & "2 = Page 2 Sales/Purchase, Range A53:AF110" & _
           vbLf & "3 = Both Pages", Title:="Enter A Number To Print",
Default:=3)
   
   Select Case Trim(Ans)
       
       Case Is = "1"
           ActiveSheet.PageSetup.PrintArea = "$A$1:$AF$52"
           ActiveSheet.PrintOut Copies:=1
           ActiveSheet.PageSetup.PrintArea = ""
       
       Case Is = "2"
           ActiveSheet.PageSetup.PrintArea = "$A$53:$AF$110"
           ActiveSheet.PrintOut Copies:=1
           ActiveSheet.PageSetup.PrintArea = ""
                     
       Case Is = "3"
           ActiveSheet.PageSetup.PrintArea = "$A$1:$AF$52"
           ActiveSheet.PrintOut Copies:=1
           
           ActiveSheet.PageSetup.PrintArea = "$A$53:$AF$110"
           ActiveSheet.PrintOut Copies:=1
             
           ActiveSheet.PageSetup.PrintArea = ""
           
               Case Else
                   MsgBox "You Must Enter A Number Between 1 & 3"
   End Select

End Sub