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