Find and replace If Then ?

[Office_Novice]

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?

 

[Per Jessen]

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

 

[Rick Rothstein \(MVP - VB\)]

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