は、私はInputBox関数を介して、選択されたセルに入力した結果を持って

Question

を選択した範囲からワークシート名を抽出します私は最初にコードを実行したワークシートに結果をドロップします。

Application.InputBoxで選択したワークシート名を取得するにはどうすればよいですか？

たとえば、Inputbox：Definitions！$ F $ 38で選択した場合、「定義」という名前はどのように取得されますか？

Answer 1

これを試してみてください。

Sub test() 
    Dim Ws As Worksheet 
    Dim OutputStrt As Range 
    Set OutputStrt = Application.InputBox("Select a cell, where the output should be dropped.", "Output start cell", Type:=8) 
    Set Ws = OutputStrt.Worksheet 
    MsgBox Ws.Name 
End Sub