如果聲明刪除選項卡，但如果頁面不存在則繼續

Question

我有一個代碼可以刪除工作表中的選項卡，然後運行另一個代碼。我目前遇到一個問題，如果工作表不存在的代碼給我一個錯誤...我想知道如果我可以做一個if語句，看看如果選項卡在那裏，如果不是它繼續前進，如果它在那裏它會刪除它。我有我寫的代碼已經寫在下面，但我不知道如何在刪除部分做if。

謝謝！

Sub delete() 
Dim ws As Worksheet 
Set ws = Worksheets("Workbench Report") 

Application.DisplayAlerts = False 

ws.delete 

Call Sorting 

End Sub 

Answer 1

檢查紙張第一存在：

Sub delete() 
    Dim ws As Worksheet 

    If WorksheetExists("Workbench Report") Then 

     Set ws = Worksheets("Workbench Report") 

     Application.DisplayAlerts = False 

     ws.delete 

     Call Sorting 

    End If 

End Sub 

    Public Function WorkSheetExists(SheetName As String, Optional WrkBk As Workbook) As Boolean 
     Dim wrkSht As Worksheet 

     If WrkBk Is Nothing Then 
      Set WrkBk = ThisWorkbook 
     End If 

     On Error Resume Next 
      Set wrkSht = WrkBk.Worksheets(SheetName) 
      WorkSheetExists = (Err.Number = 0) 
      Set wrkSht = Nothing 
     On Error GoTo 0 
    End Function 

Answer 2

試試這個

Sub delete() 
Dim i As Integer 

i = 1 

Application.DisplayAlerts = False 

While i <= ActiveWorkbook.Worksheets.Count 

Sheets(i).Select 

If ActiveSheet.Name = "Workbench Report" Then 

ActiveSheet.delete 

End If 

i = i + 1 

Wend 

Call Sorting 

Application.DisplayAlerts = True 

End Sub