[VBA] Sheets Exist

Function CheckSheet(pName As String) As Boolean
    Dim IsExist As Boolean
    
    IsExist = False
    For Each ws In Worksheets
        If ws.Name = pName Then
            IsExist = True
            Exit For
        End If
    Next
    CheckSheet = IsExist
End Function