find/replace macro

[jimmjam]

Hello. I'm trying to build a macro that will find and replace contents. here is my code...
Range("B87").Select
Selection.Copy
Sheets("PCD LINK").Select
Cells.Replace What:="PCD MODEL NAME", Replacement:= _
"Acosta, Inc._Traditional_Model_T4362_O1_BErd_20110214_0830PM.xlsm", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("PCD").Select
End Sub

The problem is, that the macro wants to keep replacing the text with the name of the cell that originally wrote the macro and not the contents thereafter. Know what I mean?

I.e. When I wrote the macro I used a test file, but on a go forward basis , I want it to replace the found words with a new name each time it's used, and not the name that originally wrote the macro.


PLEASE HELP!!!


Thanks

JIM

 

[Scott Huish]

First off, it's very rare that you need to Select anything in VBA. You can work with ranges directly.

You have to remember we have no idea what you are trying to accomplish, so please explain it to us again with the understanding that we no nothing of your project.

Perhaps you could post some sample data and expected results.

Also, why are you copying a range that you never paste anywhere?