something like this

Sub findreplace()
Range("e14:e18").Replace What:="x", Replacement:="y", LookAt:=xlWhole
Range("e16:e18").Replace What:=[e14], Replacement:=[e15], LookAt:=xlWhole
End Sub

--
Don Guillett
SalesAid Software

"Brisbane Rob"
wrote in message
news:Brisbane.Rob.20epay_1135196101.7246@excelforu m-nospam.com...

Is it possible to run Find and Replace from a macro where it picks up
the 'find' and the 'replace' data from the data in two cells on the
sheet?

Any ideas?

Thanks


--
Brisbane Rob
------------------------------------------------------------------------
Brisbane Rob's Profile:
http://www.excelforum.com/member.php...o&userid=25096
View this thread: http://www.excelforum.com/showthread...hreadid=495314