Sub rng()
Set myRange = Application.InputBox("Enter a range or " _
& "select a range with the mouse.", _
"SELECT A RANGE", Type:=8)
MsgBox myRange.Address
End Sub

"John" wrote in message
...
Excel 2007

Is there a dialog which I can call within a subroutine which would ask the
user to select with the mouse a range of cells and place the result in a
variable?

Thanks in advance