1.Insert a "Forms" Listbox control
a. Select the Ribbon, Developer tab
b. Select "Insert" on the ribbon
c. Under the "Forms" (upper section of Insert) select the ListBox.. Top row, 5th from the left
d. Select a point on the worksheet where you want the Listbox
e. Right click on the listbox and select "Format Control"
f. For the "Input Range" select cells $H$14:$H$25......... I'll explain 25 later
g. For the "Cell Link" select cell $H$13
h. In cell H25 type "Park" (or anything you like to denote "do nothing")
i. Resize the ListBox to suit
j. Right click on the listbox and select "Assign Macro"
k. Assign the macro "SetColumns" by typing the name in.

The form is setup - now we need to add the code for SetColumns

2. Setup the Macro

Insert a code module into the VBA IDE
Add the following code to the module :

Sub SetColumns()
Dim iUserSelect As Integer

iUserSelect = Sheet1.Range("H13").Value
If iUserSelect = 12 Then Exit Sub

Select Case iUserSelect
Case 1
If Sheet1.Range("K:N").EntireColumn.Hidden = True Then
Sheet1.Range("K:N").EntireColumn.Hidden = False
Sheet2.Range("A:D").EntireColumn.Hidden = False
Sheet1.Range("H" & iUserSelect + 13).Value = "Visible"
Else
Sheet1.Range("K:N").EntireColumn.Hidden = True
Sheet2.Range("A:D").EntireColumn.Hidden = True
Sheet1.Range("H" & iUserSelect + 13).Value = "Hidden"
End If

Case 2
'Same as for case 1 with different columns

End Select

Sheet1.Range("H13").Value = 12

End Sub