怎么用宏选中指定表格并删除这个表格_VBA

如何用宏选中指定表格并删除这个表格
在录制宏过程中不能使用鼠标，所以根本没法选中一个表并删除它，请高手指点！

------解决方案--------------------------------------------------------

VB code

Sub Macro1()    Sheets("Sheet1").Select    ActiveWindow.SelectedSheets.DeleteEnd Sub
------解决方案--------------------------------------------------------
VB codeSub DeleteSheet()    Application.DisplayAlerts = False    Sheets("要删除的表名").Delete    Application.DisplayAlerts = TrueEnd Sub
------解决方案--------------------------------------------------------
探讨

VB code
Sub DeleteSheet()
    Application.DisplayAlerts = False
    Sheets("要删除的表名").Delete
    Application.DisplayAlerts = True
End Sub

------解决方案--------------------------------------------------------
探讨
如何给表格命名？不是用VBA的方式，而是直接操作命名，请指点！

------解决方案--------------------------------------------------------
Ctrl+PageUP 可以选中一个表