That line should be:
If Target.Count 1 Then Exit Sub
Do you have the whole line?
If you do have the whole line and it still gets that error, send me your
file. Change/delete the data if you wish. My email is
. Remove the "extra" from this address. HTH
Otto
"Michael Lanier" wrote in message
...
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