Трябва ти следния код:
Sub SwitchBetweenWorkbooks()
Workbooks.Add
wb = ActiveWorkbook.name
ThisWorkbook.Activate
Workbooks(wb).Activate
End Sub
За да се върнеш отново в стария файл, използваш метода "Activate". Aко например файла ти се казва "Book1":
Windows("Book1").Activate