Excel: How To: Simple "SheetExists" NATIVE function ???

[Webtest]

Esteemed Forum Participants and Lurkers:
===============================
Excel 2003 VBA

Does anyone have a neat trick for identifying if a sheet with a particular name exists without having to go through an error exception branch? What I really want is a native Excel function that returns a boolean if the sheet exists ... like:

If ShtExists(aBook.aSheet("SheetName")) then

This has been bothering me for a long time. Here is what I presently use that DOES us an error branch:

Option Explicit
'Create a specific sheet if it does not already exist
Sub MakeSheet()
    Dim x As Long
    Dim shtName As String
    Dim shtNum As Long
    Dim aBook As Workbook
    
    'Set a handle for the book that we want to add the sheets into
    Set aBook = ActiveWorkbook
    
    'Set the name of the sheet that we want to add to the book
    shtName = "MY FIRST SHEET"
    'Set the position of the sheet in the book
    shtNum = 1
    On Error GoTo ERR_NO_SHEET
        'See if the sheet exists by forcing an error
        x = aBook.Sheets(shtName).Index
    On Error GoTo 0
    
    'Set the name of the sheet that we want to add to the book
    shtName = "MY SECOND SHEET"
    'Set the position of the sheet in the book
    shtNum = 2
    On Error GoTo ERR_NO_SHEET
        'See if the sheet exists by forcing an error
        x = aBook.Sheets(shtName).Index
    On Error GoTo 0

    Set aBook = Nothing
    Exit Sub
    
ERR_NO_SHEET:
    'Here is where we create the sheet if it doesn't exist
    aBook.Sheets.Add Before:=Sheets(shtNum)
    ActiveSheet.Name = shtName
    Resume Next
    
End Sub

Yes, I know, I could easily write a new function with just a couple of lines. I just want to know if I am missing something obvious.

[DKenny]

Here's my stab at a function to check sheet existance

http://www.vbforums.com/showthread.php?t=400514

[Webtest]

I bit the bullet and wrote a simple Function:

Option Explicit
'==================================================================
'Test to see if a named sheet exists
'Returns TRUE if the sheet exists
'Returns FALSE if the sheet does NOT exist
'
Function SheetExists(aBook As Workbook, aName As String) As Boolean
    Dim x As Long
    
    On Error GoTo ERR_NO_SHEET
        'See if the sheet exists by forcing an error
        x = aBook.Sheets(aName).Index
    On Error GoTo 0
    
    'If the sheet does NOT exist, you'll NEVER get here!
    'The Sheet DOES exist ...
    SheetExists = True
    Exit Function
    
ERR_NO_SHEET:
    'We got here with a FAILED attempt to identify a sheet with the given name
    'The sheet does NOT exist
    SheetExists = False
    Exit Function
    
End Function

... but I'm still wondering if there is a NATIVE Excel function???