How to avoid using SELECT and ACTIVATE?

[shilos_dad]

i have written this piece of code below, but a friend suggested i avoid using activate and select.
i tried re-writing by using WITH but it is not working. what can you guys suggest? thanks.


wb2.Activate
ws1.Activate
rngA.Select
Range(rngA, ActiveCell.End(xlDown)).Select
Selection.Copy

 

[steve the fish]

Hi. Try like this:

Sub test()

Dim wb2 As Workbook, ws1 As Worksheet, rngA As Range

Set wb2 = ThisWorkbook
Set ws1 = wb2.Sheets("Sheet1")
Set rngA = ws1.Range("A1")

Range(rngA, rngA.End(xlDown)).Copy

End Sub