If you're using All Caps, that would impact the comparison being done via:
If .DropdownListEntries(i).Text = .Range.Text Then
You can overcome that with:
If UCase(.DropdownListEntries(i).Text) = UCase(.Range.Text) Then
The above modification will work regardless of whether the particular content control's text is formatted as All Caps.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|