Find and replace If Then ?
 

Here is what I haveCells.Replace What:="Insurance Company Insurance Policy #
RBH26374", Replacement:= _
"Insurance Policy - Insurance Company", LookAt:=xlPart,
SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

What i need is ...

If the words insurance company appears i need to replace them with
"Insurance Policy - Insurance Company" is this possible?

Find and replace If Then ?
 

On 13 Jan., 03:15, Office_Novice
wrote:
Here is what I haveCells.Replace What:="Insurance *Company Insurance Policy #
RBH26374", Replacement:= _
* * * * "Insurance Policy - Insurance Company", LookAt:=xlPart,
SearchOrder:= _
* * * * xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

What i need is ...

If the words insurance company appears i need to replace them with *
"Insurance Policy - Insurance Company" is this possible?

Dim tRange as range
Sub ReplaceIf
set tRange=Range("A1:C10") ' Change to suit

For Each c in tRange
If c Like "*insurance company*" then
c.Value = "Insurance Policy - Insurance Company"
End If
Next
End Sub

Regards,

Per

Find and replace If Then ?
 

If c Like "*insurance company*" then

Unless the user has an Option Compare Text statement in his/her code window,
your test above will be case sensitive. If you want to use the Like
operator, then you could try it this way...

If LCase$(c) Like "*insurance company*" Then

however, I'm thinking this might be better...

If InStr(1, c, "insurance company", vbTextCompare) Then

Rick