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

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
|