Erik37, Yours seemed to work except for a few problems. Number 1. it doesn't like the 'Optional' word. Number 2 is that I am getting an error message for
'Public Sub MouseClick()
MouseDown
MouseUp
End Sub' "Argument not Optional'. How can I get you some points?