Switching between Workbooks

**voro** · 07-17-2012, 09:01 AM

HEy GuYs

I am new to vba and im struggling with switching between two workbooks (book1 and book2)
The code below does not work for me. May i kindly ask you wer the problem is macro doews not switch to book2
Book1 is were the macro is stored.
Book2 is just "other" workbook
Both files are opened at the time of runnin macro.

Many thanks in advance
Regards
Peter

Sub SwitchBtween()
Dim Book1 As ThisWorkbook
Dim Book2 As Workbook
Set Book2 = ActiveWorkbook
Workbook(Book2).Activate
End Sub

**gmk** · 07-17-2012, 10:33 AM

voro

Sub Switch()

    Workbooks("Book2.xls").Activate
    MsgBox "This is wbook 2"
    ''' do something


    ThisWorkbook.Activate
    MsgBox "This is wbook 1"
    ''' do something

End Sub

hth