Mehrere Zeilen markieren

In einem festgelegtem Bereich sollen alle Zeilen markiert werden,
in denen in Spalte A der Wert 1 steht. 
Sub Zeilen_markieren()
    Dim Zeile()
    For x = 1 To 100
        If Cells(x, 1) = 1 Then
            Zähler = Zähler + 1
            ReDim Preserve Zeile(1 To Zähler)
            Zeile(Zähler) = x
        End If
    Next x
    For x = 1 To Zähler
        tmp = tmp & Zeile(x) & ":" & Zeile(x) & ","
    Next x
    tmp = Mid(tmp, 1, Len(tmp) - 1)
    Range(tmp).Select
End Sub