{quote}{login=Guest_E}{date=23.05.2008 07:56}{thema=Как создать новый рабочий лист и присвоить ему имя ячейки   из листа 1}{post} у меня не входит туда!  
{/post}{/quote}:)  
Вспомнил с старый анекдот.  
Женился молодой хохол, после первой брачной ночи жалуется отцу:  
- Ни лызит, батько!  
Тот ему советует воспользоваться кринкой со сметаной. На следующее утро:  
- И у кринку ни лызит!  
 
Вы это прочесть не можете?  
Ответ :    
Worksheets.Add.Name = "Temp" & Fix(1000 * Rnd)  
Комментарий :    
- Имя нового рабочего листа не должно совпадать с именами листов (Sheets)    
- Имя листа не должно содержать более 31 символа.    
- Имя листа не должно содержать следующих символов / \ ? : *    
кроме того, существует ограничение на порядок ввода [ ]
- Нельзя добавить новый лист, если структура рабочей книги защищена [FAQ]
 
И незачем новую тему создавать.

Какие условия? О_о  
Worksheets.Add.Name = Sheets("Лист1").Cells(1, 1).Value

Извини ты, я же не знал!  
 
Да эти условия:.....  
- Имя нового рабочего листа не должно совпадать с именами листов (Sheets)    
- Имя листа не должно содержать более 31 символа.    
- Имя листа не должно содержать следующих символов / \ ? : *    
кроме того, существует ограничение на порядок ввода [ ]
- Нельзя добавить новый лист, если структура рабочей книги защищена [FAQ]
 
Да ты просто КРАСАВА, UNLIMITED THANKS...    
Оказывается код в одну строку то было, так просто оказывается!    
А я то сначало Add, a потом писал отдельно Name, путался блин!!!  
Ты в моем рейтинге на первое место вышел!!! Жаль что раньше не пользовалься VBA, я здесь за 5 дней кое-то научился и продолжаю вникать!!!  
КРАСАВА....