{quote}{login=KuklP}{date=30.03.2010 06:05}{thema=}{post}Чтобы текст не терялся: вместо UsedRange попробуйте Cells  
А чтобы несколько листов, обращайтесь к ним по имени, или по номеру и копируйте по очереди. Можно макрорекордером: выделить несколько листов и скопировать в новую книгу.{/post}{/quote}  
 
Замена UsedRange на Cells безнадежно вешает компьютер :(

{quote}{login=Лузер™}{date=31.03.2010 10:04}{thema=}{post}Sub SaveSheet()  
Dim ActiveSht As Worksheet  
Dim NewWb As Workbook  
Sheets(Array("Лист1", "Лист2", "Лист3")).Copy ' Здесь указываете имена нужных листов, в т.ч. и скрытых.  
Set NewWb = ActiveWorkbook  
For Each ActiveSht In NewWb.Worksheets  
 ActiveSht.Visible = True ' делаем скрытые листы видимыми в новой книге.  
 With ActiveSht.UsedRange  
   .Value = .Value  
 End With  
Next  
NewWb.SaveAs Filename:="C:\" & "Лист3.xls" ' листов стало много - какое имя нужно давать для книги не знаю.  
End Sub  
 
Про текст:  
нужен пример как именно потерялся текст.  
созханите одил лист руками (без потери текста) и один лист макросом. Прикрепите сюда (не забывая про правила формума).{/post}{/quote}  
Копирование не удается. Выскакивает ошибка (см. вложение) в строке  
"Sheets(Array("З_СМБ", "П_СМБ", "П_СМБ")).Copy ' Здесь указываете имена нужных листов, в т.ч. и скрытых."

{quote}{login=Лузер™}{date=31.03.2010 11:23}{thema=}{post}Так вот Вам и ответ почему текст обрезается.  
счас поправим :){/post}{/quote}  
 
Текст, который обрезался, вырезала из ячеек и вставила в textbox`ы. Теперь при выполнении макроса копирования появляется ошибка  
" `1004` Метод Copy из класса Sheets завершен неверно"  
все в той же строке  
"Sheets(Array("Заявление_СМБ", "Полис_СМБ", "Перечень_СМБ")).Copy ' Здесь указываете имена нужных листов, в т.ч. и скрытых."

{quote}{login=Лузер™}{date=31.03.2010 12:58}{thema=}{post}Боюсь, без примера все же не обойтись.{/post}{/quote}  
 
Похоже, что проблемы с копированием возникают из-за защищенности книги.  
Тем не менее, копирование не работает так, как хотелось бы. Во вложении пример с Вашим кодом.  
А хотелось бы, чтоб по нажатию кнопки "Скопировать листы" происходило копирование только указанных листов - они скрыты в исходном файле, но должны быть видимыми в новой книге.

Переименуйте макрос Copy в Copy1 соответственно и ссылку на него в кнопке.

Sub Copy1()  ' не используйте зарезервированные имена. Придумайте свое имя макроса.  
Dim ActiveSht As Worksheet  
Dim NewWb As Workbook  
Set NewWb = Workbooks.Add  
For Each ActiveSht In ThisWorkbook.Sheets(Array("Лист11", "Лист21", "Лист31"))  ' не используйте стандартные имена листов или будет ошибка.  
 NewWb.Worksheets.Add.Name = ActiveSht.Name  
 With ActiveSht.UsedRange  
   .Copy  
   ActiveSheet.Range(.Address).PasteSpecial Paste:=xlPasteValues  
   ActiveSheet.Range(.Address).PasteSpecial Paste:=xlPasteFormats  
   ActiveSheet.Range(.Address).PasteSpecial Paste:=xlPasteColumnWidths  
 End With  
Next  
NewWb.SaveAs Filename:="C:\" & "Копия.xls"  ' листов стало много - какое имя нужно давать для книги не знаю.  
MsgBox "Формы документов перенесены в новую книгу и сохранены.", , ""  
End Sub

{quote}{login=KuklP}{date=01.04.2010 05:42}{thema=}{post}Ув. Лузер™, вот на этой строке:  
For Each ActiveSht In ThisWorkbook.Sheets(Array("Лист11", "Лист21", "Лист31"))    
Вылетает в Дебаг - Subscript out of range. Мой вариант работает:  
{/post}{/quote}А листы с такими именами есть? Или так и остались "Лист1", "Лист2", "Лист3"?  
Потом, я не претендую на эксклюзив и работоспособность Вашего варианта не оспариваю.    
Только копирует ли он ячейки с >255 символами? - У топикстартера проблема не только со скрытыми листами. Но и с потерей части текста.  
А нужно ли закрывать исходную книгу? А вдруг в ней остались несохраненые изменения?

Я понимаю, что сохранить легко. Но если не нужно сохранять? Или наоборот нужно - мы не знаем. Лишнее сохранение/закрытие накладывает ненужные ограничения на функциональность кода.  
 
Про "при этом две строки, формат и ширина отпадают" не понял.  
 
Про топикстартера - может она чаще не может. Я вот последнее время раз в пять меньше на форуме провожу.

Уважаемые KuklP и Лузер™! Спасибо Вам за то, что оказываете посильную помощь - я искренне Вам признательна!  
KuklP, Вы правы: я профан в vba, тем более, в сравнении с корифеями форума. Ну а незнание синтаксиса порой приводит к возникновению сложностей даже в решении незначительных задач. Однако с помощью этого форума vba перестал быть загадкой и, я надеюсь, достаточно скоро станет полноценным инструментом в руках даже Черной__Дыры.  
Ответы на данную тему приходили не так скоро, как хотелось бы и я пыталась найти иные варианты решения (и на других форумах в том числе). В итоге пришла к такому решению (здесь выложен истинный, а не адаптированный для выкладки примера код):  
 
Sub SaveSheet_SMB()  
ThisWorkbook.Unprotect ("XXX")  
   Dim wsSh As Worksheet  
   Dim NewWb As Workbook, asArr(), li As Long  
   Application.ScreenUpdating = False  
   For Each wsSh In Sheets(Array("П_СМБ", "З_СМБ", "Пер_СМБ"))  
       If wsSh.Visible <> -1 Then ReDim Preserve asArr(li): asArr(li) = wsSh.Name: li = li + 1: wsSh.Visible = xlSheetVisible  
   Next wsSh  
   Sheets(Array("П_СМБ", "З_СМБ", "Пер_СМБ")).Copy  
   Set NewWb = ActiveWorkbook  
   For Each wsSh In NewWb.Worksheets  
       With wsSh  
           .Visible = True  
           .UsedRange.Value = .UsedRange.Value  
       End With  
   Next  
 
   For li = LBound(asArr) To UBound(asArr)  
       ThisWorkbook.Sheets(asArr(li)).Visible = xlSheetVeryHidden  
   Next li  
   NewWb.SaveAs Filename:=ActiveWorkbook.Path & "Копия.xls"  
   Application.ScreenUpdating = True  
   MsgBox "Формы документов перенесены в новую книгу и сохранены.", , ""  
End Sub  
 
Однако снова возникли вопросы:  
1. Можно ли сохранить копируемые (а на самом деле - перемещаемые) листы в исходной книге иным способом или это возможно только с помощью закрытия исходной книги без сохранения?  
2. Есть ли способ защитить новосозданную книгу и ее листы таким образом, чтобы пользователю были недоступны никакие изменения, словно лист сохранился как картинка в pdf-формате?

Или так:  
Sub SaveSheet_SMB()  
ThisWorkbook.Unprotect ("XXX")  
Dim wsSh As Worksheet  
Dim NewWb As Workbook, asArr(), li As Long  
Application.ScreenUpdating = False  
For Each wsSh In Sheets(Array("П_СМБ", "З_СМБ", "Пер_СМБ"))  
If wsSh.Visible <> -1 Then ReDim Preserve asArr(li): asArr(li) = wsSh.Name: li = li + 1: wsSh.Visible = xlSheetVisible  
Next wsSh  
Sheets(Array("П_СМБ", "З_СМБ", "Пер_СМБ")).Copy  
Set NewWb = ActiveWorkbook  
For Each wsSh In NewWb.Worksheets  
With wsSh.UsedRange  
.Copy  
wsSh.Range(.Address).PasteSpecial Paste:=xlPasteValues 'Вот эта строка от Лузер™  
End With  
Next  
 
For li = LBound(asArr) To UBound(asArr)  
ThisWorkbook.Sheets(asArr(li)).Visible = xlSheetVeryHidden  
Next li  
NewWb.SaveAs Filename:=ActiveWorkbook.Path & "Копия.xls"  
Application.ScreenUpdating = True  
MsgBox "Формы документов перенесены в новую книгу и сохранены.", , ""  
End Sub  
У меня работает.  
По поводу сохранения в PDF ссылаюсь на пост Лузер™.