工作表是否在存在工作薄里VBA

nnsea

Sub 工作表存在与否()
Dim sn$
For Each sht In Sheets
    sn = sht.Name
    If sn = "我的工作表" Then
        MsgBox "存在"
        Exit Sub
    End If
Next
    MsgBox "不存在"
End Sub

nnsea

Sub 工作表存在与否1()
Dim sn$
For i = 1 To Sheets.Count
        a = Sheets(i).Name
    If Sheets(i).Name = "我的工作表" Then
        MsgBox "存在"
        Exit Sub
    End If
Next
     MsgBox "不存在"
End Sub