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.

--
Rick (MVP - Excel)


"Shane Devenshire" wrote in message ...
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.

--
If this helps, please click the Yes button

Cheers,
Shane Devenshire


"Khardy3352" wrote:

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