Selecting and using a cell range with a cursor 1

[MarkGorecki]

How would a newbie (like myself) be able to select the cell range using a cursor, instead of hard coding the cell range, then pass the range on to the code?

For example, my code has:
Dim varRange As Variant
On Error Resume Next
Set varRange = _
Application.InputBox("Select a range of cells:", Type:=8)
If IsObject(varRange) = False Then Exit Sub
MsgBox varRange.Range

Then below I have (created from recording a macro)
ActiveChart.SetSourceData Source:=Sheet("Chart_Data").Range("A16"), -

Where ("A16") was the range selected in the macro. I would like to use the range selected from the cursor.

 

[SkipVought]

Hi,

...
Set MyChart = [i]whateverchartobject[/i]

MyChart.SetSourceData Source:=varRange

Skip,

Want to get great answers to your Tek-Tips questions? Have a look at faq222-2244

 

[MarkGorecki]

Thank you very much! That did the trick.