Search for string across header row, then search for another string down found column

Hi forum gurus,

I have a worksheet that needs to have its data re-orderd. This seems pretty straight forward, but I'm stumpped on how to use a found cell as the upper limit for another search range.

Basically, I want to find the word "Comment" within (:=xlPart) the text string of header-row cells. When the string "Comment" is found, then I want to look down that column to see if any actual comments are present (four or more letters-- What:="????*").
- If not, then continue to the next column where "Comment" is found in the header.
- If so, then cut the entire column and insert it (sequentially for multiple finds) after column ("H"); then continue to the next column where "Comment" is found in the header and repeat.

I get to the point of selecting the column range I want to search for actual comments, but then my search for comments looks across that row, instead of looking down the column. Here is my annotated vba code:

Please Login or Register  to view this content.

Thanks very much in advance....

TucsonJack

Could you attach a worksheet (or a mockup of a worksheet)?

Here is a sample worksheet.

Thanks much

I think I got this to work.
Backup your data.

Please Login or Register  to view this content.

StevenM,

Thank you so much. Your most elegant (compared to the clunky way I was approaching the problem) solution worked like a charm. I will study how you did this. I have much to learn.

I haven't discovered how to assign credit to your contribution. I hope the "solved" marker does so. Again... amazingly fine work.. Thank you.

TucsonJack