Hi! Your dash 2013 is actually en-dash ChrW(8211) & dash 002D is hyphen-minus ChrW(45).
Without seeing your 'Select Case ...' I have doubts if the following will help, but try using
Code:
Case InStr(oRngEval, " " & ChrW(8211) & " ") = 1, InStr(oRngEval, " " & ChrW(45) & " ") = 1
Or if there are no other Cases, I'd use:
Code:
Dim sStr As String
Select Case InStr(oRng, " " & sStr & " ") = 1
Case sStr = ChrW(45), sStr = ChrW(8211)