VBA Find & Replace Multiple Values

Hi, I wonder whether someone may be able to help me please.

I've put together a very short script (below) which finds and replaces specific text values.

 
If ws.Name = "Monthly Projects" Then
                With ws.Range("C5:C" & LastRow)
                    .Replace What:="/IMS", Replacement:="IMS", LookAt:=xlWhole, _
                    SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
                    ReplaceFormat:=False
                End With
End If

The code works fine, but I'm now looking to expand this and include additional text values with wildcards to find and replace e.g. replace "*Business*" with "BT" and "*Personal*" with "PT", but I'm a little unsure about how to do this.

I just wondered whether someone could possibly look at this please and offer some guidance on how I may be able to achieve this.

Many thanks and kind regards

Hi hobbiton73,

Here's a snippet of code from macro I recorded using Find & Replace Function that you can modify to suit your needs.

    With Cells
         .Replace What:="*BUSINESS*", Replacement:="BT", LookAt:=xlPart, _
          SearchOrder:=xlByRows, MatchCase:=False
         .Replace What:="*PERSONNEL*", Replacement:="PT", LookAt:=xlPart, _
          SearchOrder:=xlByRows, MatchCase:=False
    End With

HTH =)

Hi @NU2vba, thank you for taking the time to reply to my post and for the guidance, it works perfectly.

All the best and kind regards