Excel VBA application.inputbox workbook

Question

Я пытаюсь получить имя рабочей книги и рабочего листа из команды Application.InputBox в excel, чтобы я мог переключаться между активной книгой и рабочей книгой, которую я выбрал значения из приложения.

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

Вот что у меня есть:

Sub test() 
Dim rSelectDie As Range 
Dim myWorkbook As String 
Dim myWorksheet As String 

Set rSelectDie = Application.InputBox(Prompt:="Please select the Die Values", Type:=8) 

myWorkbook = ??? 
myWorksheet = rSelectDie.Worksheet.Name 
MsgBox "Your Worksheet is: " & myWorksheet & vbNewLine & "Your WorkBook is" & myWorkbook 


Windows(myWorkbook).Activate 
Sheets(myWorksheet).Activate 
End Sub 

Я не уверен, что поставить на «???»

Answer 1

возможно

myWorkbook = rSelectDie.Worksheet.Parent.Name 

или

myWorkbook = rSelectDie.Parent.Parent.Name 

Answer 2

ThisWorkbook.Name это то, что вы хотите?