Thanks once again, That did the trick

Regards
Kenny

"Bob Phillips" wrote in message
...
Kenny,

As the add-in is hidden, you cannot print directly from there. What you
have
to do is copy it out to a new workbook, print that sheet, then close the
new
workbook

ThisWorkbook.Worksheets("Report").Copy
With ActiveSheet
.PrintOut Copies:=1
.Parent.Close False
End With


--

HTH

RP
(remove nothere from the email address if mailing direct)


"N E Body" wrote
in
message ...

Thanks Bob

Once again you have come to my rescue!

I have altered the code and it runs now except for the part which
prints a worksheet.

I had been printing "Report" sheet by

ActiveWindow.SelectedSheets.PrintOut Copies:=1

But I have no idea what to change this to to get it to print!

Any ideas?

Regards
Kenny


--
N E Body
------------------------------------------------------------------------
N E Body's Profile:
http://www.excelforum.com/member.php...o&userid=11263
View this thread:
http://www.excelforum.com/showthread...hreadid=397456