Thanks for the response. Here is the abbreviated code for my procedure:
Private Sub CmdCompare_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)'Originally I tried the Click event but it wasn't working either
Variable declarations here
CommonDialog1.Filter =...