エクセルＶＢＡの質問です。

「有れば削除、なければマクロを実行」というのは、 ブックの中に

"シートＡ", "シートＢ", "シートＣ"がどれかあった場合は

（１）それをすべて削除するのでしょうか

（２）最初に見つかったどれか一つだけを削除するするのでしょうか

提示されたコードは If ～ Else ～ End If の形式ですので（２）に相当しますが

希望されるケースは（１）のようにも思えます。

（それとも複数あることはないのでしょうか？）

（１）の場合は下記のようになります。

"シートＡ", "シートＢ", "シートＣ"に該当するものがあればすべて削除し、

削除処理が行われなかった場合のみ、マクロを実行します。

Sub testAll()
    Dim WS As Worksheet
    Dim isExists As Boolean
    isExists = False
    For Each WS In Worksheets
        Select Case WS.Name
            Case "シートＡ", "シートＢ", "シートＣ"
            Application.DisplayAlerts = False
            WS.Delete
            Application.DisplayAlerts = True
            isExists = True
        End Select
    Next
    
    If isExists = False Then
        マクロ
    End If
End Sub

（２）の場合は下記のようになります。

ただし、これは"シートＡ", "シートＢ", "シートＣ"のどれか一つを削除して終了するので、

複数あった場合は、他のシートは残ります。

Sub testAny()
    Dim WS As Worksheet
    
    For Each WS In Worksheets
        Select Case WS.Name
            Case "シートＡ", "シートＢ", "シートＣ"
            Application.DisplayAlerts = False
            WS.Delete
            Application.DisplayAlerts = True
            Exit Sub
        End Select
    Next
    マクロ
End Sub

ご希望の仕様が異なる場合は、コメントにて対応しますのでコメントを有効にしてください。

　Worksheets(i)などでForループ/Fore Eachループをかまさないとだめなんでは？

Sub Text()
    Dim i As Integer
    Dim ws As Worksheet
    i = 1
    Do While i <= Worksheets.Count
        Set ws = Worksheets.Item(i)
        If ws.Name = "XXX" Then
            ws.Delete
        Else
            i = i + 1
        End If
    Loop
End Sub

当方、エクセルは持ってないので、動作検証はしてませんが、こんな感じかと思います。

ちなみに、提示のソースは

変数WS に値を入れていないためのエラーだと思われます。

Sub test()

On Error GoTo Error

Dim checkSheet As Worksheet

Dim isMacroRun as Boolean

isMacroRun = True

For Each checkSheet In ActiveWorkbook.Sheets

　If checkSheet.Name = "シートＡ" Then

ActiveWorkbook("シートＡ").Delete

isMacroRun = False

ElseIf checkSheet.Name = "シートＢ" Then

ActiveWorkbook("シートＢ").Delete

isMacroRun = False

ElseIf checkSheet.Name = "シートＣ" Then

ActiveWorkbook("シートＣ").Delete

isMacroRun = False

End If

Next checkSheet

If isMacroRun

マクロ

End If

Exit Sub

Error:

MsgBox "エラー:" & Err.Number & vbNewLine & Err.Description

End Sub

Forループ処理を使った書き方。

Sub Sheet(Name As String)
  Dim I As Worksheet
  For Each I In Sheets
    If I.Name = Name Then マクロ
  Next
End Sub

エラー処理を使った書き方。

Sub Sheet(Name As String)
  Dim WS As Worksheet
  On Error Resume Next
    Set WS = Sheets(Name)
    If Err.Number = 0 Then マクロ
  On Error GoTo 0
End Sub