Select working(Active) range with mouse

[idnoidno]

I use a mouse to select a range,for example Q6:Q10.
I want to use like ActiveCell expression,how can I do in my vba code?

[mana]

Selection

[idnoidno]

Mr. mana
I don't have any idea about your answer.Could you explain it further?

[mana]

If TypeName(Selection) = "Range" Then MsgBox Selection.Address(0, 0)

[idnoidno]

I got it,and one more question.
For example,Q6:Q10
Selection.column=17,right?
How could I get the row numbers of 6 and 10?

[mana]

With Selection
MsgBox .Row & vbLf & .Row + .Rows.Count - 1
End With

[mdmackillop]

If TypeName(Selection) = "Range" Then
MsgBox Selection(1).Row
MsgBox Selection(Selection.Rows.Count).Row


x = Selection.Address(1, 1)
MsgBox Replace(Split(x, "$")(2), ":", "")
MsgBox Split(x, "$")(4)
End If

[idnoidno]

If the range is Q1: Q10, the mouse click is Q2: Q8, how to deal with Q2: Q8?

[mana]

you can use "resize & offset"

[idnoidno]

Mr.mana
Could you give me a example?
It will be appreciated.

[mana]

https://msdn.microsoft.com/en-us/vba/excel-vba/articles/range-resize-property-excel?f=255&MSPPError=-2147217396

https://msdn.microsoft.com/VBA/Excel-VBA/articles/range-offset-property-excel (http://https://msdn.microsoft.com/VBA/Excel-VBA/articles/range-offset-property-excel)

[idnoidno]

氏マナは、ご指導ありがとうございました

[mdmackillop]

If the range is Q1: Q10, the mouse click is Q2: Q8, how to deal with Q2: Q8?
If the mouse click is Q2: Q8 then the Selection is Q2: Q8

[SamT]

Dim X as Range
With Selection
Set X = Range(.Cells(2), .Cells(8))
End With

[snb]

What is the purpose ?