VBA Code to Hide all but the Active Worksheet in Excel

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

VBA Code:

Sub HideWorksheetsExceptActive()
    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
            ' Hide the worksheet
            ws.Visible = xlSheetHidden
        End If
    Next ws
    
    ' Inform the user that the worksheets have been hidden
    MsgBox "All worksheets except the active sheet have been hidden!"
End Sub


Check All VBA Codes

Join Our Telegram Group techguruplus telegram group Join Our WhatsApp Group techguruplus whatsapp group
Nazim Khan - Author Image

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.

Leave a Comment