inputboxではセル番地が指定できず困っています。

質問

EXCEL2000のVBAで、フィルターオプション機能を自動化したいのですが、
抽出先が変動するので、inputboxでセル番地を選択しようとすると、セルを選択することができず、自分で「A1」などと入力すると、きちんとA1に抽出結果が出てくるのですが、自分でセル番地をinputboxに入力するのではなく、マウスでセル番地を指定したいのですが、どのような方法をすればよかったでしょうか?
よろしくお願いします。ちなみ作ったVBAは以下のとおりです。（複数の表から同じ条件で抽出し、inputboxで指定したセル番地に抽出結果を出し、その右側に続けて抽出結果を貼り付けていくという感じで作っています）
Sub 抽出()
Dim Shouhin1 As String
Dim Shouhin2 As String
Dim Shouhin3 As String

Shouhin1 = InputBox("抽出先を指定してください")
Shouhin2 = "d" & Mid(Shouhin1, 2, 5)’二つ目の表の抽出先を指定
Shouhin3 = "g" & Mid(Shouhin1, 2, 5)’３つ目の表の抽出先を指定

Sheets("抽出先").Select
Sheets("データ").Range("A5:c44").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("データ").Range("B1:B2"), CopyToRange:=Range(Shouhin1), _
Unique:=False
Sheets("データ").Select
Sheets("抽出先").Select
Sheets("データ").Range("d5:f44").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("データ").Range("B1:B2"), CopyToRange:=Range(Shouhin2), _
Unique:=False
Sheets("データ").Select
Sheets("抽出先").Select
Sheets("データ").Range("g5:i44").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("データ").Range("B1:B2"), CopyToRange:=Range(Shouhin3), _
Unique:=False
End Sub

回答No.1

shishishishi · ベストアンサー

マウスで範囲指定が出来ます。

Sub test()
msg = "セルを指定してください。"
Set rng = Application.InputBox(msg, "セル指定", Type:=8)
MsgBox rng.Address
End Sub

お礼

ありがとうございます。早速試してみたいと思います。