Loop and apply formatting

I'm trying to loop through all worksheets in the active workbook, find a word in the first row, and if that word is found, format the entire column. the code I have below only works if on the active worksheet.

Please Login or Register  to view this content.

What's weird is If I uncomment 'ws.Range("A1") = ws.Name and comment out everything else, it actually loops through the worksheets and changes A1 to the sheet name. so something is off on the iloop maybe?

Thanks

Thank you Holger, that works!
I also need to loop through the same worksheets and move every instance of "Volume" or "Revenue" to the end of the data, delete the first instances so that Volume and Revenue are at the end of the dataset instead of the middle. Do I need to start a new thread for that?

I have VBS that works for one sheet but when I try to make the script loop through sheets, strange things happen, so I'm trying in Excel VBA then run the macros from the Scripts. Your fix to to the excel vba also works when I call the macros with my scripts.
Thanks!

Originally Posted by HaHoBe

Hi, apunc1,

maybe just change

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

Ciao,
Holger