ExcelVBAでシートが存在するか調べる

力技

Sub Sample03()
    Dim ws As Worksheet, flag As Boolean
    For Each ws In Worksheets
        If ws.Name = "合計" Then flag = True
    Next ws
    If flag = True Then
        MsgBox "[合計]シートがあります", vbInformation
    Else
        MsgBox "[合計]シートはありません", vbInformation
    End If
End Sub