Function СуммаВид(Diapazon) As Double
' Просмотр всех ячеек заданного диапазона
For Each iCell In Diapazon сдесь ошибка типа
' Анализ только видимых ячеек
If Not Ячейка.EntireRow.Hidden And Not _
Ячейка.EntireColumn.Hidden Then
' При расчете учитываются только ячейки _
с численными значениями
'If IsNumeric(Ячейка) = True Then
СуммаВид = СуммаВид + Ячейка
'End If
End If
Next

Range("A1") = СуммаВид
как сделпть чтобы работала (поиск выделенного диапазона)