用VBA如何查找表，判断这张工作表是否存在，如果存在就删除，并且不显示删除提示。

你说的是某个文件？
ipath = "c:\aaa.xls" '文件的详细地址
Application.DisplayAlerts = False
If Dir(ipath) = "" Then Kill ipath
Application.DisplayAlerts = True

还是一个文件里的某个sheet表？
shname = "aaaaaa" 'sheet表的名字
For Each sh In Sheets
If sh.Name = shname Then
Application.DisplayAlerts = False
sh.Delete
Application.DisplayAlerts = True
End If
Next

Dim whm As Worksheet
For Each whm In Sheets
If whm.Name = Range("表名的单元格") Then
Worksheets(Trim(Str(Range("表名的单元格")))).Visible = True '显示
Sheets(Trim(Str(Range("表名的单元格")))).Select

End If

Next whm