엑셀 매크로 시트 있는지 확인

1 함수

Public Function exist_worksheet(name As String) As Boolean
    exist_worksheet = False
    For Each ws In ActiveWorkbook.Worksheets
        If ws.name = name Then exist_worksheet = True
    Next ws
End Function

2 테스트

Sub button1_Click()
    If exist_worksheet("시트이름") Then
        MsgBox "있음"
    Else
        MsgBox "없음"
    End If
End Sub