Find and replace
I am trying to create a function that must look at a cell if the cell
contains EG. "/" it must replace it with an "_" and then return the value of
the cell, if it does not contain a "/", it must return the value as is.
The code that I used works fine but if it does not contain a "/" it returns
a error #value!
Here is code that i used pls help!
Function FReplace1(ReplaceField1) As String
If
Application.WorksheetFunction.IsNumber(Application .WorksheetFunction.Search("/", ReplaceField1)) = "true" Then
ReplaceField1 = Replace(ReplaceField1, "/", "_")
FReplace1 = ReplaceField1
Else
FFeplace1 = ReplaceField1
End If
End Function
Thanks
|