Need VBA code to hide multiple columns if row 2 in the same columns is a certain text value

[jeff_cp]

I have a spreadsheet that's pulling data from a database. In this database, the fields come from different globals in the software. One of these globals, ^YEV, is broken and all the fields in the database from this global return NULL values. I need to include these fields in the report but hide them until the database is fixed, which may be a while. I want to make sure any column with ^YEV in row 2 gets hidden each time I run my refreshAlll macro. Here's my layout:

	A	B	C	D	E
1	Account Information Report
2			^YEV	^YEV
3	AccountNum	AccountName	YearlySalesToDate	AccountBalance	PhoneNum
4	12345	ABC Customer			123-456-7890
5	23456	XYZ Customer			234-567-8901

So in the example above, I need to hide columns C and D because row 2 in each of those columns has ^YEV.

Thanks for any help with this!

 

[rpaulson]

For c = 1 To Cells(2, Columns.Count).End(xlToLeft).Column
If Cells(2, c) = "^YEV" Then Columns(c).EntireColumn.Hidden = True
Next c