Sub InputBoxメソッド()
Dim Data
Data = Application.InputBox("値のあるセルを選んでください")
MsgBox Data
End Sub