Sorry about taking so long to get back to you... Is there a reason that you
are looping instead of using find and findnext? Other than that a range has a
property called specialcell which takes an argument (in this case
xlVisibleCellsOnly) so something like this.
Range("A1:A8000").specialcells(xlVisibleCellsOnly) .copy

If you want help with the find - find next which would be a pile more
efficient just ask...


--
HTH...

Jim Thomlinson


"Craigm" wrote:


I am forcing the copy with a For loop to run all the way down the
worksheet (all 8,000 rows) and copy the data to a new worksheet using
InStr to find my "Totals".

There must be a way to only copy the visible cells to another
worksheet?

I cannot even chart with the autofilter on as the data exceeds the
number of rows as input to the chart.

I am a lost puppy at this point.
--------------------------------------
All of your input is valuable!

Thanks, Craigm


--
Craigm
------------------------------------------------------------------------
Craigm's Profile: http://www.excelforum.com/member.php...o&userid=24381
View this thread: http://www.excelforum.com/showthread...hreadid=383640