Активный лист

Подскажите пожалуйста каким оператором можно сделать лист активнымИз MS basic для сохранения отдельной страницы в ф-ле .xls работали операторы Set NewBook1 = Workbooks.Add fName = ThisWorkbook.Path & "\perebr_" & Format(Now, "short date")Workbooks("sas.xls").Worksheets("p erebr").Copy After:=Worksheets("лист1") Worksheets("лист1").Copy After:=Worksheets("лист2") NewBook1.SaveAs Filename:=fName NewBook1.Closeвсе простоВ ООО работает только операторActiveWorkbook.Worksheets("pereb r").Copy 'копирую лист perebrПри этом создается новая книга и можно было бы ее записать и закрыть вручную но на родительской книге активным остается этот лист perebr .Подскажите как назначить операторами нужный мне активный лист и еще вопрос Не пойму как сделать на листе кнопку рабочей . После назначения макроса она все равно находится в режиме редактирования параметров.Понимаю что должно быть все просто но не могу найти где. Подскажите кто чем может плиз