عدم ایجاد شیت جدید در حالت share

[ali.b]

سلام
این کدی که دارم در حالت عادی نیمیزاره شیت جدید درست بشه
اما تا وقتی فایل رو به حالت share workbook می برم ارور میده
کجاشو باید دستکاری کنم

Private Sub Workbook_NewSheet(ByVal Sh As Object)      
    With Application 
        .ScreenUpdating = False 
        .DisplayAlerts = False 
         
         
        ActiveSheet.Delete 
         
        MsgBox "Cannot add new sheets!", 16 
         
         
        .DisplayAlerts = True 
        .ScreenUpdating = True 
    End With 
     
End Sub