Macro to hide columns based on contents

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>