how to set current workbook to the master after opening 2nd workbo

R

Rick

I need to know how to reset a primary workbook to active after executing a
procedure to open a 2nd workbook. I used the following code to open the 2nd
workbook:
Public Static Sub OpenFiles(BkNme)
Dim ThsWrkBk As Workbook
Dim WorkBk As Workbook
Dim WrkBk As String
Dim BKPath As String
Set ThsWrkBk = ActiveWorkbook
BKPath = "C:\Documents and Settings\Richard L. Harig\My
Documents\Excell\Financials\"
WrkBk = BKPath & BkNme
On Error Resume Next
Set WorkBk = Workbooks(BkNme)
If WorkBk Is Nothing Then
On Error Resume Next
Workbooks.Open Filename:=WrkBk, UpdateLinks:=3
End If
End Sub
 

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

Failure to execute Private Workbook_Open 0
Common routines to open many files by name 1
Join Function in VB Excel2k 1
Open four Wbooks, copy four columns from each to Master Wbook 16
Cell values to an array, then array transpose to another workbook 8
how do i loop thru all the worksheets in 2 files one by one 0
Checking if a workbook is open 7
Macro that opens a separate workbook to a specified worksheet whenthe active workbook is right mouse 8

Top