利用vb对已有的excel做散点图

已经有了一个excel，并且里面已经有了数据，我现在想利用vb将其打开，并作出散点图，包括添加趋势线和显示公式和R^2。不知道这样可以不，还望高手相助，小弟不胜感激！！

Sub Test2()
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SetSourceData Source:=Sheets("sheet2").Range("D12:E16"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet2"
ActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlLinear, Forward:=0, _
Backward:=0, DisplayEquation:=True, DisplayRSquared:=True).Select
End Sub

请将黑体部分中的Sheet2改为实际的工作表名称，Range部分改为实际存放数据的位置．