Прежде всего хочу отдельное спасибо сказать vikttur и NEW за их терпение. У меня вот что не получается. У меня в книге иногда бывает лист "О1", а иногда его нет. Как мне по условию создать лист "О1_З", а если его нет - не создавать ничего? Прошу помочь))
Sub CreateWorksheet()
If SheetExist("О1") Then 'проверяем есть ли лист О1 в файле, если да, то создаём новый лист
Worksheets.Add
ActiveSheet.Name = "О1_З"
End If
End Sub
Function SheetExist(ByVal iName As String) As Boolean
On Error Resume Next
With Worksheets(iName): End With
SheetExist = (Err = 0)
Err.Clear
End Function