Double Rule

     

    Sub Change_Row_Height()
    For Each rw In Worksheets("Sheet1").Rows
    If rw.Row Mod 2 = 0 Then
    rw.RowHeight = 4
    End If
    Next rw
    End Sub