VBA Code to Delete all but the Active Worksheet in Excel

VBA code that you can use to delete all worksheets except the active worksheet in Excel

VBA Code:

Sub DeleteWorksheetsExceptActive()
    Dim ws As Worksheet
    ' Loop through each worksheet in the workbook
    For Each ws In ThisWorkbook.Worksheets
        ' Check if the worksheet is the active sheet
        If Not ws Is ActiveSheet Then
            ' Delete the worksheet
            Application.DisplayAlerts = False ' Disable delete confirmation prompt
            Application.DisplayAlerts = True ' Enable delete confirmation prompt
        End If
    Next ws
    ' Inform the user that the worksheets have been deleted
    MsgBox "All worksheets except the active sheet have been deleted!"
End Sub

Check All VBA Codes

Join Our Telegram Group techguruplus telegram group Join Our WhatsApp Group techguruplus whatsapp group

Leave a Comment