VBA 用for each 給當前工作簿的所有工作表改名，常用集合

Sub demo45()

Dim ws As Worksheet    ‘把ws 定義為一個工作表對象

For Each ws In Worksheets    '用for each 遍歷對象集合
　　ws.Name = "哈哈" & ws.Name     ’改名

Next

End Sub