Macro to hide sheets if there is no value in cell A2 & below

[harry2908]

I am not familiar with VBA, i require a macro which would hide sheet if a sheet is empty on the basis of coulmn A
There are about 20-25 sheets in a workbook.
I need a macro which could HIDE the sheets which have no value in cells A2 & below (considering row 1 is a header row)

Appreciate your help...!!!

 

[Sektor]

Put it in standard module.

[COLOR="Blue"]Sub[/COLOR] HideSheets()

    [COLOR="Blue"]Dim[/COLOR] sh [COLOR="Blue"]As[/COLOR] Worksheet
    
    [COLOR="Blue"]For[/COLOR] [COLOR="Blue"]Each[/COLOR] sh [COLOR="Blue"]In[/COLOR] Sheets
        [COLOR="Blue"]If[/COLOR] sh.Cells(Rows.Count, "A").End(xlUp).Row = 1 [COLOR="Blue"]Then[/COLOR]
            sh.Visible = xlSheetHidden
        [COLOR="Blue"]End[/COLOR] [COLOR="Blue"]If[/COLOR]
    [COLOR="Blue"]Next[/COLOR]

[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

 

[harry2908]

Superb...

Thanks again Sektor...

Appreciate it...!!!