再来一题，Saojun老师别走，我看到你了

删除最左边的工作表
Application.DisplayAlerts = False
Sheets(1).Delete
Application.DisplayAlerts = True
删除最右边的工作表
Application.DisplayAlerts = False
Sheets(Sheets.Count).Delete
Application.DisplayAlerts = True
如果最新加入的，有移动过位置，而名称没顺序，则..
（我不会，再想想看）


查到了，原有名称是　.codeName
我想到的办法，又是程式。
Sub xxx()
Application.DisplayAlerts = False
maxcode% = 0
For i = 1 To Sheets.Count
   cname = Mid(Sheets(i).CodeName, 6)
   If cname > maxcode Then
       maxcode = cname
       Set NewFile = Sheets(i)
   End If
Next
NewFile.Delete
Application.DisplayAlerts = True
End Sub

你都会加 msgbox .... 做测试了，还用我加注吗？