Date function recognize current month and year

[D_Holmes]

Hi All,

I am trying to write a vba code that will read a date on the current sheet and if that date does not fall within the current month and year, said sheet will be hidden. So far I have:

If Worksheets("09_2020").Range("A2").Value <> Format(Date, "MM/DD/YYYY") Then

Worksheets("09_2020").Visible = False

End If

All help is welcomed. Thank you.

 

[D_Holmes]

Thank you so much. The code works! I somehow messed up everything else, but I will troubleshoot it.

 

[Joe4]

You are welcome.

 

[D_Holmes]

Last question. If i wanted to use this formula to go through multiple sheets, how would I write this?

 

[Joe4]

Something like this:

Dim ws as Worksheet
For each ws in Worksheets
    If Format(ws.Range("A2"),"mmyyyy") <> Format(Date, "mmyyyy") Then
        ws.Visible = False
    Else 
        ws.Visible = True
    End If
Next ws

 

[D_Holmes]

Thank you, again!

 

[Rick Rothstein]

Just wondering... is it at all possible that the month-year on all sheets will not match the current date's month-year? If so, what should happen (at least one sheet must be visible)?

 

[D_Holmes]

I wrote the code individually for all of the sheets I want it to run on. The other sheets will remain untouched in my workbook.