let me know what message is popup each time

Sub InputBoxTest()
Dim MySelection As Range
Set MySelection = Application.InputBox(prompt:="Select a range of cells", Type:=8)
msgbox MySelection.address
MySelection.Select
End Sub