Macro to Insert/Remove a Column Based on Selection from a Validation List

[legalhustler]

I have a spreadsheet in which users select from a drop-down list from cell A2 in order to display calculations in column B. I created the drop-down list using Data Validation and it works fine. What I would like to do is have a macro that hides certain columns depending on which item the user chooses from the drop-down list in cell A2?

For example, if in cell A2, the user chooses "GL" from the drop-down list, then columns A, C through Q are visible, while column B is hidden. If a user selects "Fund" from the drop down list, then all columns from A through Q should be visible.

I think title of the post should say Hide/Unhide rather than insert/remove. If Mod can fix that that would be great.

Can someone assist with this code.

Thanks.

 

[legalhustler]

I tried something like this, but I think I need cell A2 referenced somewhere or fix anything else as necessary.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
Select Case Target.Value
Case "GL"
ActiveSheet.Range("B").EntireColumn.Hidden = True
Case "Fund"
ActiveSheet.Range("B").EntireColumn.Hidden = False
End Select
Application.EnableEvents = True
End Sub

Note: FYI - I have a empty selection from the drop-down list too.

 

[legalhustler]

If someone can please help that would be great. TIA!

 

[legalhustler]

***bump****