VBA to colour all text blue including and after specific word.

[garypea123]

Hi,

I am looking for a VBA macro which search in column E, and search for the word GMP, and format this work, and all text after it as blue.

Thanks,
Gary

 

[Fluff]

Is col E hard values or formulae?

 

[Peter_SSs]

Try this with a copy of your workbook

Sub GMP()
  Dim rFound As Range
  Dim FirstAddr As String
  
  Set rFound = Columns("E").Find(What:="*GMP*", MatchCase:=True)
  If Not rFound Is Nothing Then
    FirstAddr = rFound.Address
    Do
      rFound.Characters(InStr(1, rFound.Value, "GMP", vbBinaryCompare), Len(rFound.Value)).Font.Color = vbBlue
      Set rFound = Columns("E").Find(What:="*GMP*", After:=rFound, MatchCase:=True)
    Loop Until rFound.Address = FirstAddr
  End If
End Sub

 

[garypea123]

Is col E hard values or formulae?

Currently it is concatenates, but I will copy/paste value so end product will be hard values.

 

[Fluff]

In that case try Peter's code.

 

[garypea123]

Thanks guys - Works like a Dream.

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.