Delete Worksheet



Sub dlt_Sheet()
    Dim ws As Worksheet
         On Error Resume Next
    Application.DisplayAlerts = False
    ThisWorkbook.Worksheets("Sheet1").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0   
End Sub

Comments

Popular posts from this blog

50 Excel VBA Oral Interview Questions