Hide columns based on dynamic headers

I have a sheet where my column headers are in line 25 .
I want the macro to check if all the columns are unhidden first then if the column header is in the specified list then hide those columns.

maybe define an array and then do
Dim Columnheader(1000) as string
ColumnHeader(1)="Apple"

Then it should hide all columns with header Apple.
Any suggestions?

So I kept trying to work this and solved it myself :-)