för att dölja kolumn A (kolumn1) så kan du använda den här koden

Columns(1).EntireColumn.Hidden = True

för att visa t.ex kolumn 1-11 så måste du ange start och slut på området (rangen)

Range(Columns(1), Columns(11)).Hidden = False

Vi kan hitta max antal kolumner med hjälp av:

Max=ActiveSheet.Columns.Count

Om i är värdet du får från din rullist  

i = ComboBox1.Value

så blir koden:

Range(Columns(2+3*i), Columns(Max)).Hidden = False

Slå ihop och förtydliga (jag antar att du kör en VBA combobox, det framgår inte riktigt av frågan)

Oba att ryllgardinen måste ligga någonstans där den inte döljs

Private Sub ComboBox1_Change()

Dim i As Integer

Dim max As Integer

i = ComboBox1.Value

max = ActiveSheet.Columns.Count

ActiveSheet.Range(Columns(1), Columns(max)).EntireColumn.Hidden = False

ActiveSheet.Range(Columns(2 + 3 * i), Columns(max)).EntireColumn.Hidden = True

End Sub