If-Schleife geht nicht !

Sub Test()
Dim Wsh As Worksheet
Dim z As Long
Dim i As Long
For Each Wsh In ThisWorkbook.Worksheets
With Wsh
z = .Range("A1").End(xlDown).Row
For i = 2 To z
If .Cells(i, 6) > 1 And .Cells(i, 6) 

Möchte damit bestimmte Werte(Zahlen) in Spalte "F" (aller Tabellenblätter) mit 77% multiplizieren. Das klappt soweit ja auch, aber meine If-Schleife fürs Hochzählen der Zeilen pro Tabellenblatt funktioniert nicht.
Hat jemand ne Idee wo mein Fehler liegt?
Vielen Dank