vba excel match replace column header using criteria

[terriertrip]

I have a problem where I'm not sure where to begin. I know that using temp sh is probably the best way to start. I have 110 columns that a fellow programmer misnamed the header attributes. Since this is an external data source (*.csv), I have no control to rename the attributes correctly. What I want to do is loop through the header row and rename each attribute correctly. For example c1 (incorrect) would be renamed to HC1 (correct)...etc.

I know this would be fairly simple since I would just match ws1.Cell(1,1) with ws2.Cell(1,i) and replace ws1.Cell(1,1) with Found ws2.Cell(1,i).Offset(0,1)...something like:

Please Login or Register  to view this content.

[JLGWhiz]

If you have a list of the incorrect headers in column A and the corresponding correct ones in column B, same row of sheet 1 then the headers in sheet 2 can be corrected like this:

Please Login or Register  to view this content.

If there are no incorrect headers on the sheet it simply ignores everything and ends the procedure. In other words it will only correct somethig if it finds a match.

[terriertrip]

Very nice. Replace! I figured it would probably be something that simple. Thanks JLGWhiz.