Excel VBA 新增、刪除、更名工作表

Dim sh1 As Worksheet

'如果沒有「TEST01」的工作表,則set sh1=ThisWorkbook.Worksheets("TEST01")會拋出錯誤。
'所以要加上On Error Resume Next,讓程式可以繼續往下判斷
On Error Resume Next
Set sh1 = ThisWorkbook.Worksheets("TEST01")

'如果sh1是空的(也就是找不到TEST01的工作表物件)
If sh1 Is Nothing Then

    '新增工作表並更名為「TEST01」
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = "TEST01"

Else
    '刪除工作表預設會出現是否確認的警告視窗,
'如果要讓VBA直接刪除工作表,如下列設定為false
    Application.DisplayAlerts = False

'刪除名稱為「TEST01」的工作表
    Sheets("TEST01").Delete

End If