1 2 3 4 5
Application.DisplayAlerts = False If SheetExists("Прибыльные места") Then Sheets("Прибыльные места").Delete End If Application.DisplayAlerts = True