No luck so far with either of these approaches:

N As Range
Set N = Selection.Range
If N.Find.Execute(FindText:="([0-9]{1,3})</>([0-9]{2})") Then
   MsgBox ("Eureka!")
End If
N As String
N = Selection.Text
If N = "([0-9]{1,3})</>([0-9]{2})" Then
   MsgBox ("Eureka!")
End If
I'd really appreciate some pointers. I suppose I need to define the range and search for any text corresponding to the format, but I'm not sure how to implement it.

Thanks and take it easy!

kobber