VBA: Hide Sheet if Sheet is Empty

[unknownymous]

Hello Gurus,

I have a massive excel file with so many tab sheets. Some may be blank sheets so can you share some VBA code for this one? Appreciate if you have the code to hide and unhide sheets that are blank.

Thank you!

 

[Trebor76]

Hi there,

Not sure why don't just delete the empty tabs but this will do what you've asked for nonetheless:

Option Explicit
Sub Macro1()

    Dim ws As Worksheet

    Application.ScreenUpdating = False
    
    For Each ws In ThisWorkbook.Sheets
        If WorksheetFunction.CountA(ws.Cells) = 0 Then
            ws.Visible = xlSheetHidden
        End If
    Next ws
    
    Application.ScreenUpdating = True

End Sub

Regards,

Robert

 

[unknownymous]

Th

Hi there,

Not sure why don't just delete the empty tabs but this will do what you've asked for nonetheless:

Option Explicit
Sub Macro1()

    Dim ws As Worksheet

    Application.ScreenUpdating = False
   
    For Each ws In ThisWorkbook.Sheets
        If WorksheetFunction.CountA(ws.Cells) = 0 Then
            ws.Visible = xlSheetHidden
        End If
    Next ws
   
    Application.ScreenUpdating = True

End Sub

Regards,

Robert

Just preference but I can tweak the code you provided. Thank you so much for the help.

 

[Trebor76]

Thank you so much for the help.

Thanks for letting us know and you're welcome