Hi Steven

You can try inserting the following code into the "This
Workbook" object, it will remove the Share Workbook button
when the sheet is opened and return when the sheet is
closed.

Regards
Will

Private Sub Workbook_Open()
Application.CommandBars("Tools").Reset
Application.CommandBars("Tools").Controls(3).Delet e

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sheet1").Select
Application.CommandBars("Tools").Reset
End Sub
-----Original Message-----
Hi folks,

using
Application.Dialogs(xlDialogPrintPreview).Show by
itself
it works fine.

The problem happens after I called
Application.Dialogs(xlDialogSendMail).Show


Calling again the preview, of the to be printed page of
the
spreadsheet, it also shows up, but is frozen and not
clickable at all. Only option left is that Excel has to
be shut
down.

If needed I can post some surrounding code or give
more details. For any hint I will be more than thankful.

Greetings
Peter


.