Yup. The underscore character is just a line continuation. That allowed me to
post code on the forum that you could just cut and paste without having to
worry about text wrapping. It also makes the code look a little better in the
code window as the entire line will be visible...
--
HTH...

Jim Thomlinson


"watchtower" wrote:

Does the _ after copy denote that the destination follows?

Thanks,
Adam

"Jim Thomlinson" wrote:

Give this a wirl...

Case Is = "ALASK"
ActiveCell.EntireRow.copy _
Sheets("Alaska Option").Cells(rows.count, "A").end(xlup).offset(1,0)
--
HTH...

Jim Thomlinson


"watchtower" wrote:

I am trying to copy a row from one sheet based on a certain criteria and then
copy it to another sheet. The below code works fine, but it take quite a
while to run through a couple thousand rows. I am trying to write the code
to just paste the row in the correct spot from the original sheet and not
activate the target sheet. Is this possible? The bottom case is code is my
feeble attempt... new to VBA

WORKING CODE - BUT SLOW
Case Is = "ALASK"
ActiveCell.EntireRow.Select
Selection.copy
Sheets("Alaska Option").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste

DESIRED CODE - DOESN'T WORK!
Case Is = "ALASK"
ActiveCell.EntireRow.copy
Sheets("Alaska Option").Range("A1").End(xlDown).Offset(1, 0).Paste

Thanks,
Adam