求高手给一段VBA代码：如果当前文件中有名为“过去”的工作表，则将

汗，不小心按了回车，没写完就出去了
求高手给一段VBA代码：判断当前文件中是否有名为“过去”的工作表，如果有，则将其删除。谢谢！！！

求高手帮忙啊~~

Sub xxxx()
'暂停系统发出删表提示
Application.DisplayAlerts = False
For Each s In Sheets
If s.Name = "过去" Then s.Delete
Next
Application.DisplayAlerts = True
End Sub

siaojuen ，太感谢你了，555555

给你一个不用循环的（又叫跑圈）
Sub DeleteSheet(shName As String)
     Application.DisplayAlerts = False
         On Error Resume Next
             Worksheets(shName).Delete
         On Error GoTo 0
     Application.DisplayAlerts = True
End Sub
没把名字写死在过程中，使用方法
Sub OkExcel()
     DeleteSheet "过去"
End Sub

谢大圣！！