Refers ActiveSheet..

Dim file_noxls As String
file_noxls = "replaced"
Cells.Replace What:="Annuity L_All", _
Replacement:=file_noxls, SearchOrder:=xlByRows

If this post helps click Yes
---------------
Jacob Skaria


"Muttley" wrote:

I'm wanting to search and replace a worksheet, but rather than replace with a
set bit of text, I want to replace it with something defined within my VBA
code:

Cells.Replace What:="Annuity L_All", Replacement:=file_noxls, LookAt _
:=xlPart, SearchOrder:=xlByRows, MatchCase:=False,
SearchFormat:=False, _
ReplaceFormat:=False

The "replace" text is definitely there, but when I run the code, it doesn't
repalce anything... can anyone help / spot the obvious error?

Thanks! :)