smeden,

You don't need to use that to copy it to a new sheet. It is a well known bug in Excel - when you delete data is doesn't change the page dimensions and remember the cells are empty. All you have to do is highlight the first empty column and hold down Shift+Ctrl and press the right arrow. Now goto Edit->Delete. Now highlight the first empty row, hold down Ctrl+Shift and press the down arrow. Now Edit->Delete again. Now press Ctrl+Home. Now save your workbook. This should clear the sheets, and you wil have kept your print area.

And have you run that sub - what did the message box give as the total char length. You can add (a wild ass guess) 25% onto that for formatting and hopefully you should be near the file size.

Hi smeden,
If your scrollbar goes way past your data (lots of scrollbar travel left, even though you are at the bottom of the data), then you need to clear the blank rows and columns beyond the range of your data.

Go to the bottom row of data, then select the entire next row by clicking on the row number. Then CTRL + Shift + Down Arrow to select all the remaining rows in the worksheet. Use the Edit...Clear menu item to clear the rows of values and formats.

Next, go to the rightmost column of data, then select the entire next column by clicking on the column letter. Then CTRL + Shift + Right Arrow to select all the remaining columns in the worksheet. Use the Edit...Clear menu item to clear the columns of values and formats. As an option, you may want to select cell A1 (CTRL + Home in Excel 2002 + earlier; Home in Excel 2003).

Repeat the above procedure for each worksheet that has problems with the scrollbar extending past the data. Then Save the workbook. Close the workbook. Reopen the workbook, and the scrollbars should now extend only as far as the data.

In VBA, you can reset the scrollbar without saving, closing and reopening (once the unused range has been cleared) by executing a statement that uses ActiveSheet.UsedRange.Rows.Count

Macro to automate the previous process:
Sub ExcelDiet()
    Dim ws As Worksheet
    Dim LastRow As Long, LastCol As Long
    Application.ScreenUpdating = False
    On Error Resume Next
    For Each ws In ActiveWorkbook.Worksheets
        With ws
            LastRow = .Cells.Find(What:="*", After:=.Range("A1"), LookIn:=xlValues, _
                LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
            LastCol = .Cells.Find(What:="*", After:=.Range("A1"), LookIn:=xlValues, _
                LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
            Range(.Cells(1, LastCol + 1), .Cells(65536, 256)).Delete
            Range(.Cells(LastRow + 1, 1), .Cells(65536, 256)).Delete
            LastRow = .UsedRange.Rows.Count
        End With
    Next ws
     On Error GoTo 0
    Application.ScreenUpdating = True
End Sub

Cheers!
Brad