Makro aktiviert nur jede zweite Zeile

in einem kleinen Makro wird jeweils in einer Zeile ein kleiner Bereich an Zellen markiert, dem dann ein bedingtes Format zugewiesen wird.
Aus irgendeinem Grund wird jedoch immer eine Zeile übersprungen, d.h. Zeile 1 besitzt die zugewiesenen Eigenschaften, Zeile 2 nicht, Zeile 3 ja, ... woher kommt das?

Hier der Code:

Sub test()
Dim zähler
Dim formel As String
zähler = 1
For zähler = 1 To 20
With Worksheets(1).Activate
Range(Cells(zähler, 1), Cells(zähler, 5)).Select
formel = "=MIN($A$" & zähler & ":$E$" & zähler & ")"
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:=formel
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 10
End With
zähler = zähler + 1
End With
Next
End Sub

Vielen Dank für Eure Hilfe,
... Claudio.