代码:

Sub Main()
    Call DelTable("临时表")
End Sub
Sub DelTable(sName As String)
    On Error Resume Next
    Worksheet s(sName).Delete
    On Error GoTo 0
End Sub

代码:

Sub main()
    If OkExcelExist("Sheet1", ThisWorkbook) Then
        MsgBox "工作表已经存在！！"
    End If
End Sub
Function OkExcelExist(sSheetName As String, w As Workbook) As Boolean
    Dim ws As Worksheet
    OkExcelExist = True
    On Error Resume Next
    Set ws = w.Worksheets(sSheetName)
    On Error GoTo 0
    If ws Is Nothing Then OkExcelExist = False
    Set ws = Nothing
End Function

引用:

[求助 ]怎么实现输入的数据 代表excel单元 格 引用的合法性检查？
　　我需要在vba的textbox中输入数据，然后用这个数据去指定excel的单元格位置 ，如何使输入的数据合法?
　　比如我在textbox中输入数据：“a2”，我用range（textbox.text）.value＝“ok”给excel的a2单元格填写数据 “ok”，如何保证我输入的“a2”一定表示了单元格的位置，而不是其他比如“kkkk”或者“1234”等不能表示单元格的字符？

代码:


Private Sub CommandButton1_Click()
    Dim str As String
    str = Trim(TextBox1.Text)           '取值
    If Not OkExcel(str) Then            '非法则显示提示信息
        MsgBox str & "不是合法单元格地址", vbOKOnly + vbCritical, "智能Excel"
        Exit Sub
        '退出子过程
    End If
    '下面加其它语句
End Sub
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Function OkExcel(str As String) As Boolean
    Dim r As Range
    On Error Resume Next
    '发生错误则执行下一条语句
    Set r = Range(str)
    '将r附值，如果发生错误则说明str中的数据，不是一个合法的单元格地址
    OkExcel = (err.Number = 0)
    '如果err.Number不是0，则说明发生过错误
    On Error GoTo 0
    '好习惯，恢复正常，虽然结束本过程后自动 会恢复
End Function