Returning a cell address in a msgbox, by selection via inputbox Ty

[FARAZ QURESHI]

I want to use a Type:=8 Inputbox allowing the user to select a cell and then
later on using the address of the range/cell selected so as a string.

For example:

Sub test()
Dim rng3 As String
rng3 = Application.InputBox(prompt:="Select rng1", Type:=8)
MsgBox (rng3)
End Sub

returns the value that is inside the cell selected instead of the actual
address of the cell. In other words upon first prompt if the user selects the
cell A1, the second prompt displays the contents of A1 but not "A1".

Thanx in advance for all your help.

 

[Gary''s Student]

You were very close:

Sub GetAddy()
Dim rng As Range
Dim st As String
Set rng = Application.InputBox(prompt:="select a range", Type:=8)
MsgBox (rng.Address)
End Sub


Note that the User has the option of either typing in range address in the
inputbox or selecting it with the mouse instead!

 

[FARAZ QURESHI]

Thanx Gary!

A genius like u couldn't be a student!. However, why have u declared the
variable "st"?

 

[Gary''s Student]

I was going to:

st=rng.Address
MsgBox(st)

but it is not necessary unless you need to "remember" the address.