1. 当前sheet确认
   

2.Sheets(1).Delete

Sub Hello()'8 Sheets(1).DeleteSheets(1).Delete
End Sub

实验得知， Sheets(1).Delete删除的是最左边的sheet
另外，因为有弹出提示信息的确认框，这个在代码执行时，会导致还需要手动点击一下，因此需要加一段代码给去掉，这段代码在vba中非常常用

Sub Hello()'8 Sheets(1).DeleteApplication.DisplayAlerts = False '确认框关闭Sheets(1).DeleteApplication.DisplayAlerts = True '确认框打开
End Sub

3.指定名字Sheet6删除

Sub Hello()'9 Sheets("Sheet6").DeleteApplication.DisplayAlerts = FalseSheets("Sheet6").DeleteApplication.DisplayAlerts = True
End Sub