How to Hide/Show Tabs off list in workbook

[Grimm127]

Hi All,
Need alittle help. Would like to create a macro that will either Show(S) or Hide(H) workbook tabs based on a list in a separate tab. So in a nut shell if Column B is "S" Show Tab in Column A. If Column B is "H" then Hide Tab in Column A. Can any of you wise guru's help me out? Thanks in advance!

COLUMN A COLUMN B
DEC-16 S
JAN-17 S
FEB-17 H
MAR-17 S
APR-17 S
ETC

 

[Michael M]

Is the text for the sheet name in col "A" text or an actual date ??

 

[Michael M]

Assuming they are actual dates and the sheet with the list is the active sheet....

Sub MM1()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
    For r = 2 To lr
        If Cells(r, 2).Value = "H" Then
        Sheets(Format(Cells(r, 1), "mmm-yy")).Visible = False
        End If
    Next r
End Sub

 

[Grimm127]

Is the text for the sheet name in col "A" text or an actual date ??

That is the Actual text in the TAB.

 

[Grimm127]

That is the Actual text in the TAB.

But if I copy the tab name and past it on a cell it will show up as a date.....