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