Hello All,

I am a new member and is pretty much self-taught on how to create Macros for word and excel. I need help with the following problem I having with the macro below. I created this macro to FIND AND HIGHLIGHT DOLLAR CURRENCY AMOUNT in qualitative data text for work. However, when I run the macro, it only highlights "$" and not numbers following the $ sign. I tried to use ("<[$0-9,.]{1,}>") in place of $ but no luck. Can anyone help me below. Thank in advance!

Sub FindMoney ()

Dim range As range
Dim i As Long
Dim TargetList

TargetList = Array("$") or ("<[$0-9,.]{1,}>")
'put list of terms to find here'

For i = 0 To Ubound (TargetList)
Set range = ActiveDocument.range
With range.Find
.Text = TargetList (i)
.Format = True
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False

Do While .Execute(Forward:=True) = True
range.HighlightColorIndex =wdGreen
Loop
End With
Next

End Sub