I suspect the Run-time error '5825' has something to do with your Mac Parallels environment; I'm not getting it on my PC. That said, because the 'MV Pedestrian Knockdown' Case Type contains duplicate entries (as do most others), I expect you'll get a Run-time error '6215' at the line:
If strTmp <> "" Then .DropdownListEntries.Add Text:=strTmp
That can be overcome by using:
On Error Resume Next
If strTmp <> "" Then .DropdownListEntries.Add Text:=strTmp
On Error GoTo 0
for testing only, as your final version shouldn't have duplicates.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]