Как проверить на ошибки пользовательскую функцию?

[TimeStopper]

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

Function SummComment(Adr$) As Long
    Dim rgCells As Range   ' Ячейки с примечаниями
' Получение ячеек с примечаниями
    Application.Volatile
    On Error Resume Next
    Set rgCells = Sheets(1).Cells.SpecialCells(xlComments)
    On Error GoTo 0
' Если примечаний нет, то можно не продолжать
    If rgCells Is Nothing Then
        Exit Function
    End If
    SummComment = 0
    For Each cell In rgCells
        If cell.Comment.Text = Adr Then
            SummComment = SummComment + cell.Formula
        End If
    Next
End Function

Sub SummCommentTst()
    Dim Adr$, res$
    Dim rgCells As Range            ' Ячейки с примечаниями
    Dim SummComment!
    
    res = InputBox("Введите текст комментария который ищем")
    If VarType(res) = vbBoolean Then Exit Sub ' выходим если текст не введет
    Adr = Trim(res): If Len(Adr) = 0 Then Exit Sub ' выходим если длина тексторой строки = 0
' Получение ячеек с примечаниями
    On Error Resume Next
    Set rgCells = Sheets(1).Cells.SpecialCells(xlComments)
    On Error GoTo 0
' Если примечаний нет, то можно не продолжать
    If rgCells Is Nothing Then
        Exit Sub
    End If
    SummComment = 0
    For Each cell In rgCells
        If cell.Comment.Text = Adr Then
            SummComment = SummComment + cell.Formula
        End If
    Next
    MsgBox SummComment
End Sub

попробовал тот же код использовать в виде макроса SummCommentTst, все отрабатывает нормально. В чем проблема с реализацией через функцию?

[Aleksandr H.]

имхо это

Function SummComment(Adr$) As Long

не вяжется к

SummComment = SummComment + cell.Formula

[RAN.]

Метод SpecialCells не работает при использовании UDF как функции листа.

[TimeStopper]

RAN, спасибо...а что может помочь?
или тупо перебрать все ячейки на наличие примечание, и таким образом составить массив?