08/07/15 21:25:23
>>398
メッセージの表示と入力を分ける必要はあるの？
これじゃダメなのか？
Sub セル選択()
Dim X As Range
On Error Resume Next
Set X = Application.InputBox(Prompt:="セルを選択して下さい", Title:="セルの選択", Type:=8)
On Error GoTo 0
If Not X Is Nothing Then
MsgBox "選択したセルは " & X.Address
Else
MsgBox "キャンセルしたよ"
End If
End Sub