was ist an dem folgenden Marko falsch?

Private Sub CommandButton1_Click()
Dim v_wert As Variant
Dim i As Integer
Sheets("Auswertung").Select
i = 20
Cells(i, 17).Select
Do Until i = 29
v_wert = Cells(i, 17)
If v_wert < 1 Then
Rows(i).Select
Selection.EntireRow.Hidden = True
End If
i = i + 1
Loop
End Sub