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.
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Can a workbook variable be set by clicking the workbook? 2
Problems usinga a variable in a worksheet function? 1
Having a problem using a variable in 1
Can a workbook variable be set by clicking the workbook? 1
Reference a workbook level named variable. 8
set a workbook variable 4
Save As and new workbook new name used in existing code 8
Workbook Variables 2

Back
Top