Macro to hide columns based on contents

**samcdavies** · 06-22-2012, 04:46 AM

Hi I'm looking for a macro that will hide any columns that contain a certain character, when a button is clicked.

In rows G:CH I have either an X or nothing in row 1. I would like the click of the button to hide all columns marked with an X - I don't want this to be automatic though. Is this possible?

Thanks in advance for any help.

**dilipandey** · 06-22-2012, 04:56 AM

Hi Samcdavies,

Try using below code:-

Sub hide()

i = Range("iv1").End(xlToLeft).Column
Cells(1, 1).Select
For n = 1 To i
If Selection.Value = "x" Then
Selection.EntireColumn.Hidden = True
Selection.Offset(0, 1).Select
Else
Selection.Offset(0, 1).Select
End If
Next

End Sub

Regards,
DILIPandey

<click on below 'star' if this helps>