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