Hey, thanks. I went ahead and did the workaround. "Richard O. Neville" wrote: Don't know why you are unable to insert worksheets, but there is an easy workaround. Select all the existing worksheets and copy them to a new workbook; save it; you should then be able to insert additional worksheets. "Eljay12inWF" <Eljay12inWF@discussions.microsoft.com> wrote in message news

Don't know why you are unable to insert worksheets, but there is an easy workaround. Select all the existing worksheets and copy them to a new workbook; save it; you should then be able to insert additional worksheets. "Eljay12inWF" <Eljay12inWF@discussions.microsoft.com> wrote in message news:7203AFA4-B832-4C1A-B252-36078A45385B@microsoft.com... Hey. I have a workbook given to me by someone

There are several ways of doing it - here's one way: Answer = MsgBox("Do you want to delete this cell?", _ vbYesNo) If Answer = vbYes Then Range("A2").Select Else Answer = MsgBox("Do you want to close '" & _ ActiveWorkbook.Name & "'?", vbYesNo) If Answer = vbYes Then ActiveWindow.Close Else Exit Sub

Check Page Setup. It sounds as if "Fit to" is set. -- Jim "Red2003XLT" <Red2003XLT@discussions.microsoft.com> wrote in message news:78FCB4A6-5E37-4857-A0CE-2018F4E3B7C5@microsoft.com... |I have a worksheet with 5 columns and variable number of rows. | | When the rows of data is small, no problems with printing. | | With increasing numbers of rows, the resulting printed document has