Sub Macro1()
Application.DisplayAlerts = False
a = ActiveSheet.Name
ActiveSheet.Delete
Sheets.Add
ActiveSheet.Name = a
Application.DisplayAlerts = True
End Sub
操作步驟：
1、按ALT+F11進入VBA編輯器，雙擊左上角的thisworkbook，然後將上面的代碼粘貼進右側的空白代碼區。
2、關閉VBA編輯器。
3、在EXCEL的工具欄空白區域右鍵單擊，選擇自定義，在彈出的窗口中選擇命令，在左側選擇“宏”，右側的笑臉拖到工具欄的任意位置。
4、右擊剛剛拖到工具欄的黃色笑臉按鈕，選擇指定宏，在彈出的窗口中選擇macro1。
5、確定，保存。
6、在sheet1裏面輸入數據，然後按下黃色笑臉，看看效果。