Dave, Bob, and Chip,

Thank you Dave for spotting my error! Thank you everyone for your patient
assistance.

I am going to have a look at Chip's information.

Best regards,
Kevin





Dave Peterson...
Try putting:

Option Explicit
Dim AppClass As New clsAppEvents
Private Sub Workbook_Open()
Set AppClass.App = Application
End Sub

Not in a general module (module1), but in the ThisWorkbook Module.

If you want to read more about application events, visit Chip Pearson's
site:
http://www.cpearson.com/excel/AppEvent.htm

Chip also has a sample workbook there that you can download and test out.