interactive message with mouse selection

[Miri]

hi,
i would like to have an interactive message like" please select your
required area"
and i get this mouse selection into my code and do something with it... how
do i do that?

 

[Gary''s Student]

Sub demo()
Dim r As Range
Set r = Application.InputBox(prompt:="pick range with mouse", Type:=8)
MsgBox (r.Address)
End Sub