Hello from Steved

Using the examples below please what do I Need to do with the below macro,
as what it does at the moment it will highlite the next word in a paragraph
for example 15 STAR OF JUDD 3766 JUST DESERTS 25 it will highlite to DESERTS
I only want it to highlite to the last character in this case D ( JUDD )
Thankyou

15 STAR OF JUDD not 3766
14 LADY EXPRESS not 3566
9 DANZATIGER      not 2063

Sub Highlighting()
Dim rPrg As Range
With Selection
  .Collapse
  .ExtendMode = False
  Set rPrg = .Paragraphs(1).Range
End With
With rPrg.Find
  .Text = "[A-Z]"
  .MatchWildcards = True
  .Forward = False
  .Execute
  rPrg.Start = Selection.Paragraphs(1).Range.Start
  rPrg.HighlightColorIndex = wdYellow
End With
End Sub