macro for hiding rows

[Khardy3352]

Can you help me write a macro that will automatically hide every third row?

 

[Sheeloo]

Try

Sub hideRows()
For i = 3 To 99 Step 3
Rows(i).EntireRow.Hidden = True
Next
End Sub

Change 99 to the value you want...

 

[Sheeloo]

Try

Sub hideRows()
For i = 3 To 99 Step 3
Rows(i).EntireRow.Hidden = True
Next
End Sub

Change 99 to the value you want...

 

[Shane Devenshire]

Hi,

Here is some code that often runs faster than loops:

Sub InsertRows()
Selection = "=1/MOD(ROW(),3)"
Selection = Selection.Value
Selection.SpecialCells(xlCellTypeConstants, 16).EntireRow.Hidden = True
Selection.EntireColumn.Delete
End Sub

Just select a blank column down as far as you want the rows to be hidden and
run it.

 

[Rick Rothstein]

Do you really want to delete the column or just clear it? My concern is if there are columns after the blank column that the user selects.