G
Guest
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
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