Hide Column Condition
Try:
Sub header()
Dim eCol As Integer
Dim i As Integer
eCol = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To eCol
With Cells(1, i)
If .Value < "Categ A" Then
.EntireColumn.Hidden = True
End If
End With
Next i
End Sub
Hope this helps
Rowan
al007 wrote:
Can anybody give me a macro for the following:
I have a list of item on row 2, with their corresponding category on
row 1 as per below:
Categ A CategB Categ A Gateg C Categ A Categ B
Item1 Item2 Item3 Item4 Item5 Item6
I would like to hide all column if categories in row 1 are not of
Category A
Thxs beforehand
|