Уважаемые форумчане, никак не могу понять и найти: Как добавить новый лист в книгу  
 
Макрорекордером не понимаю как добавить и назначить сразу имя    
 
Sub Макрос1()  
   Sheets.Add After:=Sheets(Sheets.Count)  
   Sheets("Лист4").Select  
   Sheets("Лист4").Name = "Пусто"  
End Sub  
 
Какая команда должна быть, чтобы добавить лист с именем, без выделения?  
Вопрос наверно слишком простой, но прогуглив ничего не нашел. В основном все копируют листы.