'Сначала проверим существование данного листа в книге  
 
   If WorksheetIsExist("Nike") Then  
       MsgBox "Лист Nike существует, удалите или переименуйте его!", vbExclamation, "Ошибка"  
       Exit Sub  
   End If  
     
'добавляем лист с заданным именем  
 
   Worksheets.Add.Name = "Nike"  
 
'а это сама функция проверки имени...  
Private Function WorksheetIsExist(iName$) As Boolean  
'***********************************************'  
'   Дата создания 01/01/2005  
'   Автор Климов Павел Юрьевич  
'   http://www.msoffice.nm.ru  
'***********************************************'  
   Dim iList As Worksheet  
   For Each iList In Worksheets  
       If StrComp(iList.Name, iName$, vbTextCompare) = 0 Then  
          WorksheetIsExist = True  
          Exit Function  
       End If  
   Next  
   WorksheetIsExist = False  
End Function