Извлечь имя листа из выбранного диапазона

Question

я должен ввести результат в выбранной ячейке через функцию InputBox:

Set OutputStrt = Application.InputBox("Select a cell, where the output should be dropped.", "Output start cell", Type:=8) 

Когда я побежал код в другом листе и хочу результат в другом листе, он отбрасывает результат на листе, где я сначала запускал код.

Как получить имя рабочего листа, которое я выбрал через Application.InputBox?

Например, когда я выбрал в поле ввода: Определения! $ 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