EXCEL打印问题VBA优化

Sub Test1()
Sheets(Array(1, 2, 3, 4)).Select '索引选定
Sheets(Array("Sheet4", "Sheet3", "Sheet2", "Sheet1")).Select '名称选定
Sheets(Array(Sheet4.Name, Sheet3.Name, Sheet2.Name, Sheet1.Name)).Select '名称不一致时
ActiveWindow.SelectedSheets.PrintOut
Sheets(1).Select
End Sub
或者
Sub Test2()
For I = 1 To 4
Sheets(I).Select False
Next
ActiveWindow.SelectedSheets.PrintOut
Sheets(1).Select
End Sub

可以简化为：
Private Sub CommandButton1_Click()
For i = 1 To 4
Sheets("sheet" & i).Select
ActiveWindow.SelectedSheets.PrintOut
Next i
Sheet1.Select
End Sub