Создал макрос на копирование листов из текущей книги в новую.
[vba]Код
Private Sub CommandButton1_Click()
With Application.Workbooks.Item("Программа ВКК Демо 16.10.2013.xls")
Sheets("ОТЧЕТ ОК").Visible = True
Sheets("КК Шухарта КП ОК весь диапазон").Visible = True
Sheets("КК Шухарта КП методом ОК").Visible = True
Sheets(Array("КК Шухарта КП ОК весь диапазон", "КК Шухарта КП методом ОК", "ОТЧЕТ ОК")).Copy
Windows("Программа ВКК Демо 16.10.2013.xls").Activate
Sheets("ОТЧЕТ ОК").Visible = False
Sheets("КК Шухарта КП ОК весь диапазон").Visible = False
Sheets("КК Шухарта КП методом ОК").Visible = False
End With
[/vba]
Если изменить имя книги "Программа ВКК Демо 16.10.2013.xls" то макрос работать не будет, как прописать макрос так что бы не указывать имя книги