Число-загадка.

[SAS888]

Ошибка возникает из-за того, что в функциях отсутствуют ссылки на рабочий лист. Замените функции на следующие:

Function CountNum(Диапазон As Range, Значение) As Long
    CountNum = Application.CountIf(Диапазон, Значение)
End Function

Function Last10(Диапазон As Range, Значение) As Long
    Dim r As Long
    With Диапазон.Parent
        r = .Cells(Rows.Count, Диапазон.Column).End(xlUp).Row
        If r > 10 Then Last10 = Application.CountIf(Intersect(Диапазон, .Rows(r - 9 & ":" & r)), Значение) _
            Else Last10 = Application.CountIf(Диапазон, Значение)
    End With
End Function

Function StrNum(Диапазон As Range, Значение) As String
    Dim x As New Collection
    With Диапазон.Parent
        For Each Cell In Intersect(.UsedRange, Диапазон)
            If Cell.Value = Значение Then
                On Error Resume Next: x.Add Cell.Row, CStr(Cell.Row)
                If Err = 0 Then StrNum = StrNum & ", " & Cell.Row Else On Error GoTo 0
            End If
        Next
        If StrNum <> "" Then StrNum = Right(StrNum, Len(StrNum) - 2)
    End With
End Function