Hi Andrew, I did try the same thing before posting but it didn't work
Code:
.Text = "(" & arrA(i) & ")([ \^s])([A-Z0-9.]{1,})"
Maybe it needs an IF...Then - code below is taken from an auto numbering macro I have and wondering if it could be adapted for my highlight purpose perhaps
Code:
iNum = UBound(Split(.text, "."))
If IsNumeric(Split(.text, ".")(UBound(Split(.text, ".")))) Then iNum = iNum + 1
If iNum < 10 Then
.text = vbNullString