inputboxの出力位置

いつもお世話になります

今、セルを選択するために下記のようにInputBoxを設定しましたが
Boxの出力位置が定まりません
下記のステートメントではだめですか？
なおExcel2013、OSはWindows7です

Dim Target As String

On Error GoTo 999
Set Target = Application.InputBox("データセルを選択してください", Left:=500, Top:=1000, Type:=8)
TargetAdd = Target.Address
TextBox6.Text = TargetAdd

以上、よろしくお願い申し上げます

No.1 ベストアンサー 回答者： tatsu99 回答日時： 2017/04/26 00:00

InputBoxでLeft,Topの指定が効かないのは、バグのようですね。

(excel2003まではOKでしたがexcel2007以降はダメなようです）
下記URL参照
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr; …

Left,Topが効かないのは、仕方ありませんが、データセルの選択は以下のようになるかと。
Public Sub test()
Dim Target As Range
Dim TargtAdd As String
On Error Resume Next
Set Target = Application.InputBox(prompt:="データセルを選択してください", Left:=500, Top:=1000, Type:=8)
'キャンセルの場合、終了
If Err.Number > 0 Then
Exit Sub
End If
Targetadd = Target.Address
TextBox6.Text = Targetadd
End Sub