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

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

[解决办法]

VB code

Sub Macro1()    Sheets("Sheet1").Select    ActiveWindow.SelectedSheets.DeleteEnd Sub
[解决办法]
VB code
Sub 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 可以选中一个表