Trying to group/ungroup named ranged columns on another tab after making updates to ActiveX drop down on input tab

[DRuss322]

I'm trying to group/ungroup columns (named range) based on activeX drop down but getting errors. I get an error code "compile error: sub or function not defined." Here's my code that I currently have in a module:

Public Sub DropDown12_Change()
'drop box named 'dropdown12

     Application.ScreenUpdating = False
   
    'Worksheet("Rolling Forecast").Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
   
    Select Case ActiveSheet.Range("I11").Value
'drop down changes value in cell I11 on input tab
   
        Case "1"
'group all
            If Worksheet("Rolling Forecast").Columns("JanRollingFcst").EntireColumn.Hidden Then
                Worksheet("Rolling Forecast").Columns("JanRollingFcst").EntireColumn.ShowDetail = False
            If Worksheet("Rolling Forecast").Columns("FebRollingFcst").EntireColumn.Hidden Then
                Worksheet("Rolling Forecast").Columns("FebRollingFcst").EntireColumn.ShowDetail = False
            If Worksheet("Rolling Forecast").Columns("MarRollingFcst").EntireColumn.Hidden Then
               Worksheet("Rolling Forecast").Columns("MarRollingFcst").EntireColumn.ShowDetail = False
            If Worksheet("Rolling Forecast").Columns("AprRollingFcst").EntireColumn.Hidden Then
               Worksheet("Rolling Forecast").Columns("AprRollingFcst").EntireColumn.ShowDetail = False
            If Worksheet("Rolling Forecast").Columns("MayRollingFcst").EntireColumn.Hidden Then
               Worksheet("Rolling Forecast").Columns("MayRollingFcst").EntireColumn.ShowDetail = False
            If Worksheet("Rolling Forecast").Columns("JunRollingFcst").EntireColumn.Hidden Then
               Worksheet("Rolling Forecast").Columns("JunRollingFcst").EntireColumn.ShowDetail = False
            If Worksheet("Rolling Forecast").Columns("JulRollingFcst").EntireColumn.Hidden Then
               Worksheet("Rolling Forecast").Columns("JulRollingFcst").EntireColumn.ShowDetail = False
            If Worksheet("Rolling Forecast").Columns("AugRollingFcst").EntireColumn.Hidden Then
               Worksheet("Rolling Forecast").Columns("AugRollingFcst").EntireColumn.ShowDetail = False
            If Worksheet("Rolling Forecast").Columns("SepRollingFcst").EntireColumn.Hidden Then
               Worksheet("Rolling Forecast").Columns("SepRollingFcst").EntireColumn.ShowDetail = False
            If Worksheet("Rolling Forecast").Columns("OctRollingFcst").EntireColumn.Hidden Then
               Worksheet("Rolling Forecast").Columns("OctRollingFcst").EntireColumn.ShowDetail = False
            If Worksheet("Rolling Forecast").Columns("NovRollingFcst").EntireColumn.Hidden Then
               Worksheet("Rolling Forecast").Columns("NovRollingFcst").EntireColumn.ShowDetail = False
            If Worksheet("Rolling Forecast").Columns("DecRollingFcst").EntireColumn.Hidden Then
               Worksheet("Rolling Forecast").Columns("DecRollingFcst").EntireColumn.ShowDetail = False
        Case "2"
'group all except JanRollingFcst
            If Worksheet("Rolling Forecast").Columns("JanRollingFcst").EntireColumn.Hidden Then
               Worksheet("Rolling Forecast").Columns("JanRollingFcst").EntireColumn.ShowDetail = True
            If Worksheet("Rolling Forecast").Columns("FebRollingFcst").EntireColumn.Hidden Then
               Worksheet("Rolling Forecast").Columns("FebRollingFcst").EntireColumn.ShowDetail = False
            If Worksheet("Rolling Forecast").Columns("MarRollingFcst").EntireColumn.Hidden Then
               Worksheet("Rolling Forecast").Columns("MarRollingFcst").EntireColumn.ShowDetail = False
            If Worksheet("Rolling Forecast").Columns("AprRollingFcst").EntireColumn.Hidden Then
               Worksheet("Rolling Forecast").Columns("AprRollingFcst").EntireColumn.ShowDetail = False
            If Worksheet("Rolling Forecast").Columns("MayRollingFcst").EntireColumn.Hidden Then
               Worksheet("Rolling Forecast").Columns("MayRollingFcst").EntireColumn.ShowDetail = False
            If Worksheet("Rolling Forecast").Columns("JunRollingFcst").EntireColumn.Hidden Then
               Worksheet("Rolling Forecast").Columns("JunRollingFcst").EntireColumn.ShowDetail = False
            If Worksheet("Rolling Forecast").Columns("JulRollingFcst").EntireColumn.Hidden Then
               Worksheet("Rolling Forecast").Columns("JulRollingFcst").EntireColumn.ShowDetail = False
            If Worksheet("Rolling Forecast").Columns("AugRollingFcst").EntireColumn.Hidden Then
               Worksheet("Rolling Forecast").Columns("AugRollingFcst").EntireColumn.ShowDetail = False
            If Worksheet("Rolling Forecast").Columns("SepRollingFcst").EntireColumn.Hidden Then
               Worksheet("Rolling Forecast").Columns("SepRollingFcst").EntireColumn.ShowDetail = False
            If Worksheet("Rolling Forecast").Columns("OctRollingFcst").EntireColumn.Hidden Then
               Worksheet("Rolling Forecast").Columns("OctRollingFcst").EntireColumn.ShowDetail = False
            If Worksheet("Rolling Forecast").Columns("NovRollingFcst").EntireColumn.Hidden Then
               Worksheet("Rolling Forecast").Columns("NovRollingFcst").EntireColumn.ShowDetail = False
            If Worksheet("Rolling Forecast").Columns("DecRollingFcst").EntireColumn.Hidden Then
               Worksheet("Rolling Forecast").Columns("DecRollingFcst").EntireColumn.ShowDetail = False
    End Select
   
    Application.ScreenUpdating = True

End Sub

 

[Peter_SSs]

Welcome to the MrExcel board!

"compile error: sub or function not defined."

Not sure it is the only problem but

Worksheet("Rolling Forecast")

should be this throughout your code

Worksheets("Rolling Forecast")