一、在原工作表名稱后添加文字
例如工作簿中僅包含12個用數字“1-12”命名的工作表，現在要將每個工作表名稱修改為“1月”、“2月”、……、“12月”，即在每個工作表名稱后添加一個“月”字。
1.按快捷鍵Alt+F11，打開VBA編輯器，在右側的代碼窗口中輸入下列代碼：
Sub RenameWorksheets()
For i = 1 To Worksheets.Count
Worksheets(i).Name = Worksheets(i).Name & "月"
Next
End Sub
2.將光標定位在代碼中間，按F5單擊工具欄中的“運行”按鈕執行代碼即可。
二、修改原工作表名稱
例如要將每個用數字命名的工作表名稱改為“一月”、“二月”、……、“十二月”。
1.在工作表中輸入修改后的工作表名稱，例如在左側第一個工作表的A列的A1:A12區域中輸入“一月”至“十二月”。
2.在VBA編輯器的代碼窗口中輸入下列代碼：
Sub RenameWorksheets1()
For i = 1 To Worksheets.Count
Worksheets(i).Name = Worksheets(1).Cells(i, 1).Value
Next
End Sub
3.將光標定位在上述代碼中間，按F5鍵或單擊工具欄中的“運行”按鈕執行代碼。
運行上述代碼前需注意工作表的排列順序要與A列中的名稱一一對應，且工作簿中不要包含隱藏的工作表，因為工作表的索引號是從左向右排列的，Worksheets(1) 指工作簿中最左邊的第一個工作表
