Hide/unhide columns based on a dropdown list (or tick list if it's possible)

Hi,

I have an Excel-sheet that I wish to hide/unhide columns based on a dropdown list (or multiple tick list if it's possible).

The dropdown list should look like this:

• 1-1 to 1-6
• 1-7 Progress check
• 2-1 to 2-6
• 2-7 Progress check
• 3-1 to 3-2
• 3-3 to 3-5
• 3-6 Progress check
• 3-7 to 3-9
• 3-10 to 3-20
• 3-21
• 3-22 to 3-23
• 4-1 to 4-3
• 4-4 to 4-10
• 4-11 Progress check
• 4-12 to 4-22
• 4-23 Progress check
• 4-24 to 4-28
• 4-29 Progress check
• 4-30 to 4-32
• 4-33 to 4-37
• 4-38 to 4-43
• 4-44 Progress check
• 5-1 to 5-9
• Skill test & Proficiency check MEP IR
• Skill test & Proficiency check SEP
• Assessment of Competence FI

I want 1-1 to 1-6 to show columns C:D:E:G:O:R:V:X:Y:Z:AC:AD:AK:AL:AN:AX:BA
I want 1-7 Progress check to show columns C:D:E:G:O:R:V:X:Y:Z:AC:AD:AK:AL:AN:AP:AX:BA

The rest I will probably figure out as soon as I see the coding on the first two.

See the attached file for the layout.

Thanks in advance!

The attached macro-enabled file has DV with your list on cells in column B, and this code in the sheet's codemodule - just in case I selected the wrong range to apply the code to.

Note that when you want to show adjacent columns, you can use FirstColumn:LastColumn, and when you want a single column you need Column:Column, like

AK:AL,AN:AN

Note too that VBA is case sensitive, so make sure your code uses exactly what is in the list of values.

'1) Copy this code.
'2) Right-Click the sheet tab of interest.
'3) Select "View Code"
'4) Paste the code into the window that appears.
'5) Save the file as a macro-enabled .xlsm file.
'6) Make changes as needed

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B2:B73")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    
    Range("C:BB").EntireColumn.Hidden = True
    
    Select Case Target.Value
    Case "1-1 to 1-6"
    Range("C:E,G:G,O:O,R:R,V:V,X:Z,AC:AD,AK:AL,AN:AN,AX:AX,BA:BA").EntireColumn.Hidden = False   'C:D:E:G:O:R:V:X:Y:Z:AC:AD:AK:AL:AN:AX:BA
    Case "1-7 Progress check"
    Range("C:E,G:G,O:O,R:R,V:V,X:Z,AC:AD,AK:AL,AN:AN,AP:AP,AX:AX,BA:BA").EntireColumn.Hidden = False 'C:D:E:G:O:R:V:X:Y:Z:AC:AD:AK:AL:AN:AP:AX:BA
    End Select
End Sub

Great - thanks for letting me know that it works - and good luck adding your code for the rest!