Dave,
Yes, the first line was highlighted yellow
Private Sub form_open(Cancel As Integer)
so I presumed the problem was something to do with that line (naturally!). But not knowing enough about VBCode, I'm not sure what the problem is. As I said, I tried changing 'Cancel' to 'MyCount', but...