Otto,

Thanks for your help. Unfortunately, the macro debugs and the
following is highlighted:

If Target.Count 1 Then

I entered the macro in Sheet1 which is the page to be printed. Do you
have any suggestions? Thanks.

Michael