Problem mit Excel VBA: Run-time error '1004'

    Hallo,
    ich habe folgende Prozedur programmiert:

    Sub Worksheet_Calculate() 'Hide columns that are not needed
    Application.ScreenUpdating = False
    Dim i As Integer
    Dim r As Integer
    i = 1
    For r = 6 To 126


    If Cells(6, r + i) > Cells(7, 127) Then
    Columns(r).EntireColumn.Hidden = True
    End If
    If Cells(6, r + i) <= Cells(7, 127) Then
    Columns(r).EntireColumn.Hidden = False
    End If

    If i = 0 Then
    i = 1
    Else
    i = 0
    End If

    Next r
    End Sub

    Leider bekomme ich immer wieder die Fehlermeldung "Run-time error '1004' - application-defined or object-defined error". Komischerweise passiert dies aber nur wenn der Wert in Zelle (7,127) einen bestimmten Wert uebersteigt :-/
    Kann mir jemand helfen??
    Vielen Dank,
    Sven