Macro: Excel 2007

[sim1344]

Hallo!

kennt sich jemand mit Visual Basic aus?

Ich müsste folgenden Code auf insgesamt 500 Zeilen anwenden. Momentan macht das das Macro nur auf die erste Zeile! (es geht um die konditionierte Farbformatierung)

Sub testmacro ()
Cells.FormatConditions.Delete
    ActiveCell.Offset(0, 2).Range("A1:HZ1").Select
    ActiveCell.Activate
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
        Formula1:="=$D3", Formula2:="=$H3"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    ActiveCell.Offset(2, 0).Range("A1").Select
End Sub

Was muss ich ändern/hinzufügen damit das Macro diese Formatierung auf alle Zeilen anwendet?