Sub シートがあるか確認する()

    For Each シート In Worksheets
    
        If シート.Name = "Sheet1" Then
        
            MsgBox "Sheet1はあります"
        
        End If
        
    Next シート

End Sub