Скрытие столбцов. Ошибка App-define od obj-define error

Sub visible_column()
 
Dim SummST As Range
 
Set SummST = Range("C2:C12")
 
Do While SummST.Cells(1, 1) <> ""
 
    ' VisibleC - если сумма в диапазоне ноль, то скрывем.
    visible_c = VisibleC(SummST)
    
 
        If visible_c = False Then
            ' определяю стобец для сокрытия
            AddrR = Mid(SummST.Address, 2, (InStr(2, SummST.Address, "$") - 2))
            Columns(AddrR & ":" & AddrR).EntireColumn.Hidden = True
        End If
        
    Set SummST = SummST.Offset(, 1)
 
Loop
 
End Sub
 
Function VisibleC(Ra As Range)
    VisibleC = False
    l = 0
    ' влоб складываем
    For Each i In Ra
        l = i.Value + l
     
    Next
 
    If l = 0 Then
        VisibleC = False
        Else
        VisibleC = True
    End If
    
End Function

Sub visible_column2()
    Dim wsh As Worksheet
    Dim i As Long, j As Long, n As Long
    Dim s As Double
    
    Set wsh = ThisWorkbook.Worksheets("Лист1")
    
    ' Поиск последнего непустого столбца на листе
    For n = wsh.UsedRange.Column + wsh.UsedRange.Rows.Count - 1 To 1 Step -1
        If wsh.Columns(n).Text = "" Then Else Exit For
    Next
    
    j = 3
    Do While j <= n ' Цикл по столбцам
        s = 0
        i = 2
        Do While i <= 12 ' Цикл по строкам, подсчет "суммы"
            ' В сумму берем только "числовые" значения, иначе к числам прибавятся и значения дат!
            If IsNumeric(wsh.Cells(i, j).Value) Then s = s + wsh.Cells(i, j).Value
            i = i + 1
        Loop
        If s = 0 Then
            wsh.Columns(j).Hidden = True ' Скрыть
        Else
            wsh.Columns(j).Hidden = False ' Показать
        End If
        j = j + 1
    Loop
    
    Set wsh = Nothing
End Sub