macro for graphing - should be very easy...

[alvis]

hello,

i am trying to set up a keyboard shortcut where i can select some
cells, hit the shortcut and a graph would be build based on the
selected data. so far i can do that but i can only graph data from the
recorded range when i start the macro B4:J4 - i want to be able to
graph from any dataset i select...

Sub graph()
' Keyboard Shortcut: Ctrl+Shift+G
'
Range("B4:J4").Select
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("B4:J4")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
End Sub

thanks,

 

[PCLIVE]

Try something like this:

Sub graph()
' Keyboard Shortcut: Ctrl+Shift+G
'
ws = ActiveSheet.Name
sl = Selection.Address
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets(ws).Range(sl)
ActiveChart.Location Where:=xlLocationAsObject, Name:=ws
End Sub

HTH,
Paul