工做表

Sub 新建工做表()
Sheets.Add , , 2 自动命名

Sheets.Add.Name = "hello" 直接命名

End Sub

Sub 删除工做表()
Sheet1.Delete
Sheets("hello").Delete

on error resume next
application.displayalert = false 删除时屏蔽弹出框

End Sub

Sub 移动工做表()
Sheet3.Move , Sheet2
End Sub

Sub 选择工做表()
'Sheet3.Select '不能选择隐藏
Sheet3.Activate

Worksheets("sheet5").Select
Worksheets(Array("sheet5", "sheet6")).Select 多选

End Sub