http://club.excelhome.net/thread-558224-1-1.html
Sub range2()
Dim myrange As range
Dim mystring As String
mystring = "请用鼠标选取单元格区域,然后单击【确定】按钮"
On Error Resume Next
Set myrange = Application.InputBox(mystring, Type:=8) '
On Error GoTo 0
If myrange Is Nothing Then
MsgBox "已经取消操作"
Else
MsgBox "选择的单元格区域为:" & myrange.address
End If
Set myrange = Nothing
End Sub