Оттуда надо скопировать кое-какие данные, потом закрыть
Если просто так:
Код: Выделить всё
Workbooks.Open (NewName)
ActiveWorkbook.Sheets("Счет").Visible = True
ActiveWorkbook.Sheets("Счет").Activate
(даже нет окошка с запросом включить-не включить)