Thread: Unhide all sheets with value in cell A1

I have found many threads regarding macros to unhide sheets, but they haven't provided an answer for my question. I have a workbook with more than 100 sheets. In cell A1 of all the sheets is a value. I need a macro to unhide all sheets where cell A1 has a value. Any suggestions?

Sub UnhideSheets()

Dim sht As Worksheet

For Each sht In Sheets
    If sht.Range("A1") <> "" Then
        sht.Visible = True
    End If
Next 'sht

End Sub

Regards, TMS

You're welcome.