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

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

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

Just add

ThsWrkBk.Activate

at the end of the Sub.

Tim




"Rick" wrote in message
...
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