Skjul kolonner i VBA, hvis værdien i en celle skifter

Hej

Jeg har et skema i et excel ark, hvori der er en celle som indikere hvor mange kolonner der skal fremgå, det vil altså sige at hvis jeg i celle "E5" = 3 skal kolonne "F:H" fremkomme, og igen hvis "E5" = 7 så skal kolonne "F:L" fremkomme osv, dette gøres gældende helt op til "E5" = 20 og kolonnerne strækker sig således "F:Y". Er der en kode der kan hjælpe mig med dette problem, jeg har allerede i samme ark indskrevet disse koder:

(Denne kode laver ovenstående bare med rækker og ændre navn i fane) - denne kode virker dog ikke til kolonner, selvom jeg tilretter den med columns og de rigtige celler...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C4")) Is Nothing Then
       
        If Range("C4") <> "" Then
            Application.ScreenUpdating = False
           
            n = Range("C4")
           
            Range("14:25").Rows.Hidden = False
            Range(15 + n & ":25").Rows.Hidden = True
           
            Application.ScreenUpdating = True
           
        End If
       
    End If
   
    If Not Intersect(Target, Range("F14")) Is Nothing Then
        If Target.Value <> "" Then
            Sheets(5).Name = Target.Value
        End If
    End If
   
    End Sub