makro-excel-select-every-nth-row

Sub HideEveryOtherRow()
'Updateby20140317
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = 1 To InputRng.Rows.Count Step 2
    Set rng = InputRng.Cells(i, 1)
    rng.EntireRow.Hidden = True
Next
Application.ScreenUpdating = True
End Sub