UsedRange?? problem
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
|