시트가 존재하는지 확인

다음 코드는 시트가 존재하는지 확인하는 간단한 사용자 정의 함수입니다.

Function WorksheetExists(ByVal worksheetName As String) As Boolean
    Dim ws As Worksheet
    
    On Error Resume Next
    Set ws = ThisWorkbook.Worksheets(worksheetName)
    On Error GoTo 0
    
    WorksheetExists = Not ws Is Nothing
End Function

간단한 사용 예제입니다.

Sub TestWorksheetExists()
    Dim sheetName As String
    sheetName = "Sheet1" ' 존재하는지 확인할 워크시트 이름
    
    If WorksheetExists(sheetName) Then
        MsgBox sheetName & " exists!"
    Else
        MsgBox sheetName & " does not exist."
    End If
End Sub