?[VBA]Sub select_range()
Dim sRange As String
sRange = Application.InputBox("Get Range ", "Title", Type:=8).Address
Range(sRange).Select
End Sub[/VBA]