toggling between workbooks using vba

[arkbdc]

Help!

Trying to open a file using vba and then go back to original file that holds the code below. Ultimately trying to do a vlookup using two workbooks but can't get past this point.

Getting an object required error and stops at last line of this code:

Sub Format()
'
' Format Macro
'
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Visible = True
Next ws
Dim wBook As Workbook

ChDir "C:\Users\Allison Montgomery\Documents\Brown Dog Consulting\John Reed"

Set wBook = Workbooks.Open(Filename:= _
"C:\Users\Allison Montgomery\Documents\Brown Dog Consulting\John Reed\Master REFERENCE.xls")
ThisWorbook.Activate

 

[John Davis]

Help!

Trying to open a file using vba and then go back to original file that holds the code below. Ultimately trying to do a vlookup using two workbooks but can't get past this point.

Getting an object required error and stops at last line of this code:

Sub Format()
'
' Format Macro
'
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Visible = True
Next ws
Dim wBook As Workbook

ChDir "C:\Users\Allison Montgomery\Documents\Brown Dog Consulting\John Reed"

Set wBook = Workbooks.Open(Filename:= _
"C:\Users\Allison Montgomery\Documents\Brown Dog Consulting\John Reed\Master REFERENCE.xls")
ThisWorbook.Activate

Does this help any?

Sub arkbdc()
'
' Format Macro
'
Dim ws As Worksheet
Dim CurrentWorkbook As Workbook

Set CurrentWorkbook = ThisWorkbook

For Each ws In ThisWorkbook.Worksheets
ws.Visible = True
Next ws
Dim wBook As Workbook

ChDir "C:\Users\Allison Montgomery\Documents\Brown Dog Consulting\John Reed"

Set wBook = Workbooks.Open(Filename:= _
"C:\Users\Allison Montgomery\Documents\Brown Dog Consulting\John Reed\Master REFERENCE.xls")
CurrentWorkbook.Activate


End Sub

 

[arkbdc]

That worked, thank you very much!

 

[John Davis]

That worked, thank you very much!

You're welcome. Thanks for the feedback. Glad it worked out for you.