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
ws.Delete
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
Join Our Telegram Group
Join Our WhatsApp Group
