vba：删除多余单元格

Sub 删除多余单元格()
Application.DisplayAlerts = False
Dim sht As Worksheet
For Each sht In Worksheets
sht.Cells(2, 15).Delete
On Error Resume Next
Next sht
Application.DisplayAlerts = True
End Sub