Need macro to hide sheets in excel

[Shradharani]

Hi,

I have many sheets in my excel among those sheets some are empty .There in no data in few of the sheets. Can you help to with the macro which will hide all those sheets which are empty and keep sheets which have data in it.

Thank you ,
Shradha

[alansidman]

In the non blank sheets, is there one cell that will always have a value in it? Perhaps A1?

[Shradharani]

Ok then is there any way to get macro to hide the sheets where value is only in A1 only in one cell and rest have more than one cell values.

Thanks,Shradha

[alansidman]

This macro assumes that if A1 is blank then the entire sheet is blank and hides the sheet.

Option Explicit

Sub HideSheets()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    
    For Each ws In Worksheets
    If ws.Range("A1") = "" Then
    ws.Visible = xlSheetHidden
    End If
    Next ws
    Application.ScreenUpdating = True
End Sub

[Shradharani]

Thank you so much its working fine

[alansidman]

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.