unsichtbare zellen

ich wollte mir per makro die sichtbaren spalten zählen lassen

Private Sub zaehler()
Dim i As Integer
i = 2
Dim z As Integer
z = 0
Do While i < 6
If Cells(1, i).Visible = True Then
z = z + 1
End If
Loop
Cells(20, 1).Value = z
End Sub

aber das makro bricht mit "Ojekt unterstützt diese eigenschaft oder Mathode nicht" ab, was mach ich falsch? bzw. was muss ich ändern?

gruß
patrick