Option Explicit

Public Function Worksheet_exits(ByVal wb As Workbook, ByVal sSheetname As String) As Boolean

    '------------< Worksheet_exits() >-------------------

    Dim bReturn As Boolean

    bReturn = False

    sSheetname = LCase(sSheetname)

    '---< @Loop: Worksheets >---

    Dim ws As Worksheet

    For Each ws In wb.Worksheets

        Dim sName As String

        sName = LCase(ws.Name)

        If sName = sSheetname Then

            bReturn = True

            Exit For

        End If

    Next

    '---</ @Loop: Worksheets >---

    '< output >

    Worksheet_exits = bReturn

    '</ output >

    '------------</ Worksheet_exits() >-------------------

End Function