Hiding columns based on column header cell criteria

[scoha]

I have a sheet with 90 columns. There are three columns per item

I want to fire a macro to hide a group of three columns (relating to an item) based on evaluating the first cell in top row of the column set for a letter "a".

All columns are hidden except for each group of three that has an "a" in the top cell of the first column of each group (ie A1, D1, G1..........)

any neta ideas on how I could code this?

cheers

 

[MickG]

Try this:-

[COLOR="Navy"]Sub[/COLOR] MG29Jun23
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Ac [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Dim[/COLOR] nRng [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Set[/COLOR] Rng = Range(Range("A1"), Cells(1, Columns.count).End(xlToLeft))
[COLOR="Navy"]For[/COLOR] Ac = 1 To Rng.count [COLOR="Navy"]Step[/COLOR] 3
    [COLOR="Navy"]If[/COLOR] Not Cells(1, Ac) = "a" [COLOR="Navy"]Then[/COLOR]
        [COLOR="Navy"]If[/COLOR] nRng [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
            [COLOR="Navy"]Set[/COLOR] nRng = Columns(Ac).Resize(, 3)
        [COLOR="Navy"]Else[/COLOR]
            [COLOR="Navy"]Set[/COLOR] nRng = Union(nRng, Columns(Ac).Resize(, 3))
        [COLOR="Navy"]End[/COLOR] If
    [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] Ac
nRng.EntireColumn.Hidden = True
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[scoha]

Thats great MickG - works a treat - thanks