Excel Column Management

Nicarlov You can add this code to the the ThisWorkbook module:

Private Sub Workbook_Open()
    Dim i As Long
    Dim strMonth As String
    
    strMonth = Format(Date, "mmmm")
    'Debug.Print strMonth
    
'   Unhide all month columns
    Range("B1:M1").EntireColumn.Hidden = False
    
'   Loop through each column - If it's <> to this month, then hide it
    For i = 2 To 13
        If Cells(1, i).Value <> strMonth Then
            Cells(1, i).EntireColumn.Hidden = True
        End If
    Next i
End Sub

If you're not familiar with VBA code, then press Alt+F11 to open the VB Editor. Next, find the module called ThisWorkbook, double-click it, then paste the code into the new window that opens on the right. You can test it by pressing F5. Alt+Q will exit you back to Excel, and the code will run each time you open the workbook.

HTH