VBA for printing multiple tabs excel for mac

[EBahn]

I have this:


Sub Button_Click()

Dim sheetname As String

sheetname = Application.InputBox("Enter a sheet name")

Sheets(sheetname).PrintOut



End Sub

And I want to print multiple tabs... preferably front and back..

In box would like to print for LS

Response below

Not sure how to amend this. I would like to have it print Manifest and one side and LS on other..

HELP?

 

[DanteAmor]

Try the following macro, capture the sheet names separated by commas. Check that the sheet name exists in your workbook.

Sub Button_Click()
  Dim sheetname As Variant, sh As Variant
  Dim a()
  Dim n As Long
  
  sheetname = Application.InputBox("Enter a sheet name")
  
  If sheetname = "" Or sheetname = False Then Exit Sub
  
  For Each sh In Split(sheetname, ",")
    ReDim Preserve a(n)
    a(n) = Trim(sh)
    n = n + 1
  Next
  Sheets(a).PrintOut
End Sub

 

[EBahn]

Thank you much Dante, I did this and it seems to work. I thank you kindly. I would just change print properties to print front and back?

 

[DanteAmor]

I would just change print properties to print front and back?

That's right, they are properties of each printer. Try and tell us.

 

[EBahn]

Try the following macro, capture the sheet names separated by commas. Check that the sheet name exists in your workbook.

Sub Button_Click()
  Dim sheetname As Variant, sh As Variant
  Dim a()
  Dim n As Long
 
  sheetname = Application.InputBox("Enter a sheet name")
 
  If sheetname = "" Or sheetname = False Then Exit Sub
 
  For Each sh In Split(sheetname, ",")
    ReDim Preserve a(n)
    a(n) = Trim(sh)
    n = n + 1
  Next
  Sheets(a).PrintOut
End Sub

 

[EBahn]

Thank you again Dante.... Works like a champ. I am much pleased. Thanks again.