Disable Sorting

I would like to be able to disable a workbook from being able to be sorted, but at the same time allow fitering.

I have tried the following code, but have not got it to work correctly, does any one see what I need to add or remove to get this to work.

Option Explicit

Private Sub Workbook_NewSheet(ByVal Sh As Object)

With Application
. ScreenUpdating = False
.DisplayAlerts = False
ActiveSheet.Sort
MsgBox "You Can't sort sheets in this workbook!"
.DisplayAlerts = True
.ScreenUpdating = True
End With

End Sub