해당 시트명이 없으면 sub 종료하는 로직

해당 시트명이 없으면 sub 종료하는 로직

Sub main()
    If sheetExists("raw_data") = False Then
        MsgBox ("raw_data 시트가 없습니다.")
        Exit Sub
    End If
 
End Sub
 
Function sheetExists(shtName As String, Optional wb As Workbook) As Boolean
    Dim sht As Worksheet
 
     If wb Is Nothing Then Set wb = ThisWorkbook
     On Error Resume Next
     Set sht = wb.Sheets(shtName)
     On Error GoTo 0
     sheetExists = Not sht Is Nothing
 End Function

raw_data라는 시트가 없으면 종료한다.

시트명 출력하는 로직

Sub 시트명뿌리기()
    For Each sh In ActiveWorkbook.Worksheets
        Debug.Print (sh.Name)
    Next
End Sub