Automatisk skjulefunktion af kolonner ved en bestemt celles værdi

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim vntColerIndex As Variant
    If Not Intersect(Target, Range("e10")) Is Nothing Then
        If UCase(Target.Value) = "NEJ" Then
            Columns("J:K").EntireColumn.Hidden = True
            Columns("P:P").EntireColumn.Hidden = True
            Columns("Q:Q").EntireColumn.Hidden = True

        Else
            Columns("J:K").EntireColumn.Hidden = False
            Columns("P:P").EntireColumn.Hidden = False
            Columns("Q:Q").EntireColumn.Hidden = False
        End If
    End If
End Sub

Jeg har tyvstjålet koden fra spørgsmål "Kan man får kode til at skjule celler" Her endnu ikke fundet ud af hvordan man indsætter et andet svar, hvilket var dit held da jeg nu skrev den rigtige kode i stedet for bare at henvise til et andet svar så du selv måtte til at skrive det om.
Held og lykke med det!
PS. man kan evt. også styre det via den person der åbner arket! Hvis det har interesse så skriv det!

Hej Palle_ib - du er en rigtig guttermand

tyveri eller ej, Du skal have rigtig mange tak herfra kontoret, da koden virker perfekt, og tro mig, jeg har ellers læst utallige oplæg herinde, men havde ikke fanget din reference.

Vil lige se om jeg får brug for dit andet fif, indtil da må du nyde det gode vejr.