VBA: Используя функцию, чтобы установить новый лист

Question

я использую очень часто, что рутина, что я хотел изменить в функцию, чтобы иметь возможность установить дополнительные листы сразу же, как этот

Set ShP = DeleteAndAddSheet("Name") 

Так вот функция:

Public Function DeleteAndAddSheet(ByVal SheetName As String) As Worksheet 

For Each aShe In Sheets 
    If aShe.Name <> SheetName Then 
    Else 
     Application.DisplayAlerts = False 
     aShe.Delete 
     Application.DisplayAlerts = True 
     Exit For 
    End If 
Next aShe 

Sheets.Add after:=Sheets(Sheets.Count) 
Sheets(Sheets.Count).Name = SheetName 

DeleteAndAddSheet = ThisWorkbook.Worksheets(Worksheets.Count) 

End Function 

Я получаю сообщение об ошибке «91» на последней строке при настройке вывода функция, в «Объект переменная или переменная не установлена»

Я попытался с Простыни и Таблицах, и ни один из го em work ...

Есть идеи?

Answer 1

изменение

DeleteAndAddSheet = ThisWorkbook.Worksheets(Worksheets.Count) 

в

set DeleteAndAddSheet = ThisWorkbook.Worksheets(Worksheets.Count) 

Answer 2

Вы нужду, чтобы превратить его в Sub вместо этого, Function не может ничего изменить, кроме ячейки она работает на, так Application.DisplayAlert -statements, а также попытка удалить рабочий лист заставляет его бросить ошибку.

После некоторых испытаний выяснится, что function позволит вам, например, удалите лист, но он не позволит изменять настройки приложения.