Проверка существования листа Excel на VBA

Чтобы проверить существует ли лист Excel, нужно перебрать все листы в книге и сравнить их название с искомым. Для упрощения, я написал функцию для выполнения этой задачи.

Функция, проверяющая существование листа Excel

Function SheetExists(CurWorkbook As Variant, ShName As String) As Boolean
Dim Sh As Worksheet
    SheetExists = False
    For Each Sh In CurWorkbook.Sheets
        If Sh.Name Like ShName Then
            SheetExists = True
            Set Sh = Nothing
            Exit Function
        End If
    Next Sh
End Function

Пример использования функции:

If Not SheetExists(Application.ActiveWorkbook, "Расчеты") Then
    MsgBox "Лист ""Расчеты"" не найден !"
    Exit Sub
End If