Delete (not Clear) all rows and columns after the last real cell and save
the workbook.

--
Jim
"Geoff" wrote in message
...
| Correction:
| Changed Sheet1 to Activesheet in debug and got:
| Debug.Print ActiveSheet.UsedRange.Address = $A$1:$AF$50918
|
| I did wonder how usedrange could be less than reallastrow, reallastcolumn.
| So the issue is all about UsedRange and how to quickly realign it to
| reallastrow etc.
|
| Geoff
|
| "Geoff" wrote:
|
| Hi
| Using this on wbooks (from another source):
| realLastRow = .Cells.Find("*", .Range("A1"), , , xlByRows,
xlPrevious).Row
| realLastColumn = .Cells.Find("*", .Range("A1"), , , xlByColumns,
| xlPrevious).Column
|
| Gives realLastRow = 98 and realLastColumn = S
| Debug.Print Sheets(1).UsedRange.Address = $D$7:$D$13
| But Ctrl + Shift + End goes to AF50918. This has a serious effect on
VBA
| processing time. 'Processing' involves copy ,paste, find, delete,
replace
| functionality.
|
| What does AF50918 represent?
| What is the fastest possible way of removing this large unwanted area
before
| processing the real data?
|
| T.I.A
|
| Geoff
|