Unhide Columns based on Month Range

[xMIKExSMITHx]

Without getting too into the details, I have my 2023 forecast file macro which hides all the columns for 2024 forecasting(BG:BT), but since we are approaching 4th qtr, I need to keep the columns unhidden. My thought was to insert a few more lines of code that say if current month (I want use month instead of dates so I dont have to go and update the code each year to trigger the macro) is Aug, Sep, Oct, Nov, Dec, or Jan, unhide columns BG:BT on each sheet. I was trying to use the Application.OnTime function but hitting roadblocks on how to properly use it with only months and not dates, and also maybe thinking an "IF" function might be better suited for this task. Any help is appreciated.

 

[ranman256]

put this code into Workbook_Open event
in spreadsheet, enter VBE (alt-F11)
in left pane (projects) : dbl-click the ThisWorkbook object
in right pane (code side): paste the code.

when workbook opens the event will fire.

Private Sub Workbook_Open()
HideCols
End Sub


Private Sub HideCols()
'hide the bg:bt columns
Select Case Month(Date)
   Case 8, 9, 10, 11, 12
     Columns("BG:BT").Hidden = False
   Case Else
     Columns("BG:BT").Hidden = True
End Select
End Sub

 

[xMIKExSMITHx]

Thank you for the quick reply ranman256. I didnt get a chance to try your solution because I took my own advice and just wrote an If/Or function as such which fixed the issue:

'This collapses the next year columns except for during the months of August through January
    
   ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
    
    
    ActiveSheet.EnableOutlining = True

    Columns("H:H").ColumnWidth = CommnentWidth
    
    Columns("M:M").EntireColumn.AutoFit
    
    Rows("6:6").RowHeight = HeaderHeight
    
    
 If Month(Now) = 1 Or Month(Now) = 8 Or Month(Now) = 9 Or Month(Now) = 10 Or Month(Now) = 11 Or Month(Now) = 12 Then

    Columns("BG:BT").Select
    Range("BT1").Activate
    Selection.EntireColumn.Hidden = False
    Columns("AF:AS").Select
    Range("AS1").Activate
    Selection.EntireColumn.Hidden = False
    Range("A1").Select

Else

End If

 

[Joe4]

Note that you could shorten up this a little:

 If Month(Now) = 1 Or Month(Now) = 8 Or Month(Now) = 9 Or Month(Now) = 10 Or Month(Now) = 11 Or Month(Now) = 12 Then

    Columns("BG:BT").Select
    Range("BT1").Activate
    Selection.EntireColumn.Hidden = False
    Columns("AF:AS").Select
    Range("AS1").Activate
    Selection.EntireColumn.Hidden = False
    Range("A1").Select

Else

End If

like this:

Select Case Month(Now)
    Case 1, 8, 9, 10, 11, 12
        Columns("BG:BT").Select
        Range("BT1").Activate
        Selection.EntireColumn.Hidden = False
        Columns("AF:AS").Select
        Range("AS1").Activate
        Selection.EntireColumn.Hidden = False
        Range("A1").Select
End Select