「AAA」というシートがあるかどうかのチェックを
For Each...Nextステートメントを使用して行います。

Sub Sample1()

    Dim myWS   As Worksheet
    Dim myFlag As Boolean

    myFlag = False

    For Each myWS In Worksheets
        If myWS.Name = "AAA" Then
            myFlag = True
            Exit For
        End If
    Next

    If myFlag = True Then
        MsgBox "AAAがあります"
    Else
        MsgBox "AAAはありません"
    End If
    
End Sub