Hack, here is another option...

Option Explicit
Option Base 0
Option Compare Binary
DefLng A-Z
Function DoesSheetExist()

Dim SheetName As String, DoesWorkSheetExist As Boolean