>Edward,
>
>Thank you for the code. It works but the Excel sheet cells are still visible though in a flash. However, I have added .ActiveWindow.WindowState = xlMinimized just after the .Workbooks.Add statement to reduce the visibility of the cells.
>
>Or is there a better method ?
>
>Once again thank you again
>
>Fred Matano

I would try to move .Visible=.T. few lines down, e.g. right before or after PrintPreview.