The first routine (below) works, but when I try the second one, only the
paste funtion works. I don't understand why the activate and select funtions
don't work in the With End With routine. Can anyone explain this to me?
Thanks,
Steve

Sheets("Temp").Select
Range("A4").Paste
Range("A1").Activate
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Selection.Copy

With wsTemp
.Range("A4").Paste
.Range("A1").Activate
.Range(ActiveCell, ActiveCell.End(xlDown)).Select
.Selection.Copy
End With