Если вы поклонник WorksheetFunction.
или работаете в неанглийской стране с неанглийским Excel, это хорошее решение, которое работает:
WorksheetFunction.IsErr(Evaluate("'" & wsName & "'!A1"))
Или в функции например:
Function WorksheetExists(sName As String) As Boolean
WorksheetExists = Not WorksheetFunction.IsErr(Evaluate("'" & sName & "'!A1"))
End Function