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 WhatsApp Group
Nazim Khan (Author) 📞 +91 9536250020
[MBA in Finance]
Nazim Khan is an expert in Microsoft Excel. He teaches people how to use it better. He has been doing this for more than ten years. He is running this website (TechGuruPlus.com) and a YouTube channel called "Business Excel" since 2016. He shares useful tips from his own experiences to help others improve their Excel skills and careers.
