More efficient copy/paste??

Set rngNHO = Sheets("All").Range("A1")
Cells(Range("A3").End(xlDown).Row + 1, "A").Select
rngNHO.Copy ActiveCell

This assumes that you are on the Sheet that you want to paste the data
into.

HTH

Die_Another_Day

Thanks guys!

Quick question Ardus...

With your code, if rngNHO is nothing...will that cause an error?

if you don't set the rngNHO to some range then it is empty...

Die_Another_Day

Celt wrote:
> Thanks guys!
>
> Quick question Ardus...
>
> With your code, if rngNHO is nothing...will that cause an error?
>
>
> --
> Celt
> ------------------------------------------------------------------------
> Celt's Profile: http://www.excelforum.com/member.php...o&userid=19413
> View this thread: http://www.excelforum.com/showthread...hreadid=550393

No: it will do nothing.

--
AP

"Celt" <Celt.295cuo_1149876607.267@excelforum-nospam.com> a écrit dans le
message de news: Celt.295cuo_1149876607.267@excelforum-nospam.com...
>
> Thanks guys!
>
> Quick question Ardus...
>
> With your code, if rngNHO is nothing...will that cause an error?
>
>
> --
> Celt
> ------------------------------------------------------------------------
> Celt's Profile:
> http://www.excelforum.com/member.php...o&userid=19413
> View this thread: http://www.excelforum.com/showthread...hreadid=550393
>

for Ardus' code it should not because of the if not rngNHO = Nothing

HTH

Die_Another_Day
Celt wrote:
> Thanks guys!
>
> Quick question Ardus...
>
> With your code, if rngNHO is nothing...will that cause an error?
>
>
> --
> Celt
> ------------------------------------------------------------------------
> Celt's Profile: http://www.excelforum.com/member.php...o&userid=19413
> View this thread: http://www.excelforum.com/showthread...hreadid=550393