Looking for the VBA code to activate Multiple worksheets

[Mav93]

Hi everyone!!!!

I'm looking for the code to activate multiple sheets in my work book so that I can create a macro that will let me print these sheets using a command button.

thanks for the help in advance!!!!

 

[Greg Truby]

Here's one of the simplest:

Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select

 

[erik.van.geit]

Hi,

maybe something like this ?

Sub operate_on_sheets()
'Erik Van Geit
'050910
'do some operations with certain sheets

Dim SheetsArray As Variant
Dim i As Integer
SheetsArray = Array("total", "report", "current month")

For i = 0 To UBound(SheetsArray)
Sheets(SheetsArray(i)).PrintOut Copies:=1
Next i

End Sub

or using the index numbers

Sub operate_on_sheets()
'Erik Van Geit
'050911
'do some operations with certain sheets

Dim SheetsArray As Variant
Dim i As Integer
SheetsArray = Array(5, 6, 9, 19)

For i = 0 To UBound(SheetsArray)
Sheets(SheetsArray(i)).Select '.PrintOut Copies:=1
Next i

End Sub

kind regards,
Erik