Macro to Change Column Based on Header

[Michael151]

<STYLE> st1\:*{behavior:url(#ieooui) } </STYLE>Hello all,


Trying to write a macro that will replace a word in an entire column based on the header in row 1.

In column D, replace the word “OPEN” with whatever the value is in D1. For example in column D:

Before:


NEW TEXT
OPEN
OPEN
TEXT
OPEN


After:


NEW TEXT
NEW TEXT
NEW TEXT
TEXT
NEW TEXT


Help is most appreciated - thanks!

 

[Smitty]

Most of that you can get with the recorder:

<font face=Calibri>    ActiveCell.EntireColumn.Replace What:="OPEN", Replacement:=Cells(1, ActiveCell.Column).Value, LookAt:=xlPart, _<br>        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=<SPAN style="color:#00007F">False</SPAN>, _<br>        ReplaceFormat:=False</FONT>

HTH,

 

[Michael151]

Thanks Smitty - trying to over-complicate something that can be done with the recorder..