Screen Updating Help

selecting or activating does not turn screenupdating on

perhaps

set wsData = ThisWorkbook.Worksheets("Data")

set rng =wsData.Range(Range("e2"), Range("e" & Rows.Count).End(xlUp))
wsData.Range("a" & rw & ":aj" & rw).Copy destination:=wsData.Range("ak" & rw)