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