Can a workbook variable be set by clicking the workbook?

  • Thread starter Thread starter Kobayashi
  • Start date Start date
Option Explicit
Sub testme()
Dim myRng As Range
Dim wkbk As Workbook

On Error Resume Next
Set myRng = Application.InputBox(prompt:="Click on a cell", Type:=8)
On Error GoTo 0

If myRng Is Nothing Then
Exit Sub
End If

MsgBox myRng.Parent.Name 'worksheet
MsgBox myRng.Parent.Parent.Name 'workbook

'so...
Set wkbk = myRng.Parent.Parent
'....

End Sub
 
I think it would be better to explain what you are trying to achieve, we
might be able to help then.
 
Back
Top