Need to hide sheet in a workbook based on the calendar day of the month

Hey Radhish-

Try adding a Workbook_Open event to the ThisWorkbook code module:

1. Paste this code to the ThisWorkBook code module

2. Save File as .xlsm

3. Open File (The code will run when macros are enabled and the associated sheets will be hidden)

Private Sub Workbook_Open()

    Dim sht As Worksheet
    Dim today As Integer
    
    today = Day(Date)
    
    For Each sht In ActiveWorkbook.Worksheets
        
        If sht.Name <= today Then
            sht.Visible = True
        Else
            sht.Visible = False
        End If
    
    Next sht

End Sub