DisplayAlerts not working

[Dave Y]

The DisplayAlerts application is not working within my macro. This file is
saved to the company intranet, so when users click on the document it opens
within an IE session. I realize that some features of Excel won't work
within this session. Is the DisplayAlerts feature one of them? Is there any
type of workaround? Most of the employees who would access this file don't
have the ability to change the file type setting to have Excel open instead
of IE.

Thanks for your help.

BR1 = ActiveCell
Application.DisplayAlerts = False
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> Right(BR1, 2) Then
ws.Delete
End If
Next ws
Application.DisplayAlerts = True