lấy giá trị vùng (range) như nào mới đúng ?

[phamvandunghp84]

trong hình trên dòng số 4 đã gán được vùng H2:H4 cho biểu đồ. bây giờ mình muốn lấy vùng dữ liệu H2:H4 để gán vào một biến khác. thì phải làm thế nào mới được?
Sub Macro2()
Dim ob As Object
Dim cht As Chart
Dim tenvung As Range

ActiveSheet.ChartObjects("Chart 2").Activate
Set cht = ActiveChart
ActiveChart.SeriesCollection(2).Name = "=data!$H$1"
ActiveChart.SeriesCollection(2).Values = "=data!$H$2:$H$4"

Set tenvung = cht.SeriesCollection(2).Values ' sửa lại dòng này như nào mới đúng ?

MsgBox tenvung

End Sub