TIA!!!

Is there a more efficient way to perform this copy paste? I know yo
should always avoid selecting if possible. I have tried a number o
things and had no success. Here is the snippet of code I want t
streamline:

If rngNHO Is Nothing Then GoTo skipNHO
Sheets("ALL").Select
rngNHO.Copy
Sheets("Contribs").Select
Cells(Range("A3").End(xlDown).Row + 1, "A").Select
ActiveSheet.Paste
skipNHO:

I have several snippets like this in my macro. Any help is greatl
appreciated!

--
Cel
-----------------------------------------------------------------------
Celt's Profile: http://www.excelforum.com/member.php...fo&userid=1941
View this thread: http://www.excelforum.com/showthread.php?threadid=55039

If Not rngNHO Is Nothing Then
rngNHO.Copy _
Destination:=Worksheets("Contribs") _
.Range("A3").End(xlDown).Offset(1, 0)
End If

HTH
--
AP


"Celt" a écrit dans le
message de news: ...

TIA!!!

Is there a more efficient way to perform this copy paste? I know you
should always avoid selecting if possible. I have tried a number of
things and had no success. Here is the snippet of code I want to
streamline:

If rngNHO Is Nothing Then GoTo skipNHO
Sheets("ALL").Select
rngNHO.Copy
Sheets("Contribs").Select
Cells(Range("A3").End(xlDown).Row + 1, "A").Select
ActiveSheet.Paste
skipNHO:

I have several snippets like this in my macro. Any help is greatly
appreciated!!


--
Celt
------------------------------------------------------------------------
Celt's Profile:
http://www.excelforum.com/member.php...o&userid=19413
View this thread: http://www.excelforum.com/showthread...hreadid=550393

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

--
Cel
-----------------------------------------------------------------------
Celt's Profile: http://www.excelforum.com/member.php...fo&userid=1941
View this thread: http://www.excelforum.com/showthread.php?threadid=55039

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" a écrit dans le
message de news: ...

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