View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
drdavidge[_7_] drdavidge[_7_] is offline
external usenet poster
 
Posts: 1
Default macro takes 30+ seconds to do an autofit on only 1 out of the 3 sheets it is autofitting


Peter T Wrote:

That's not a large Usedrange, guess there's something else lurking o
that
sheet.

Try deleting all columns to the right and rows below BR568

If that doesn't make a difference, with a *backup*
- Insert a new sheet one to the left
- Cut A1:BR568 and paste into the new sheet
- delete the now empty sheet
- rename the new same as old

Regards,
Peter T


hmm.. the "ReArranged - No Formulas" sheet gets generated every time
run the macro by copying the entire sheet and pasting special value
from the original "ReArranged" sheet. On second look, it does seem lik
the new sheet is 64k rows long and IV colums wide. it seems like i hav
two options at this point:

1) is there a way i can delete those extra rows/columns in "ReArrange
- No Formulas" with VBA?

or

2) would it be better to just select the data cells in "ReArranged
(A1:BR568) when i originally copy it? if so. how can i do that so tha
it works when there is a different number of rows/colums? (it won
always be A1:BR568) ?

currently i do it like this:


Code
-------------------

'Create new "No Formula" Sheet
Sheets("ReArranged - No Formulas").Select
Sheets("ReArranged").Cells.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

-------------------


thanks again

--
drdavidg
-----------------------------------------------------------------------
drdavidge's Profile: http://www.excelforum.com/member.php...fo&userid=3616
View this thread: http://www.excelforum.com/showthread.php?threadid=56110