Macro uitvoeren na enter in bepaalde cellen

Sub Horizontaal()
   With Sheets("Voorbeeld")
      Set c = Range("MijnDatums")                'bereik wordt bepaald door een gedefinieerde naam
      On Error GoTo ToonAlles                    'loopt er iets fout in de volgende rij = alle kolommen tonen
      If c.SpecialCells(xlVisible).Count <> c.Cells.Count Then GoTo ToonAlles   'toggle-functie, vorige keer minstens 1 kolom verborgen = eerst alles terug tonen
      On Error GoTo 0                            'einde reageren op fout

      rij2 = Application.Transpose(Application.Transpose(c))   ' gegevens >> array
      kol1 = Application.Match(CLng(Range("Van").Value), rij2, 0)   'positie datum "VAN" (omzetten naar Long)
      kol2 = Application.Match(CLng(Range("Tot").Value), rij2, 0)   'positie datum "TOT" (omzetten naar Long)

      If IsNumeric(kol1) And IsNumeric(kol2) Then   'beide datums gevonden
         If kol1 > kol2 Then GoTo ToonAlles      'VAN groter dan TOT = alles tonen
         c.EntireColumn.Hidden = True            'eerst c helemaal verbergen
         c.Offset(, kol1 - 1).Resize(, kol2 - kol1 + 3).EntireColumn.Hidden = False   'dit deel ook tonen, hou rekening met samengesteld karakter !!!
      Else
         GoTo ToonAlles                          'minstens 1 datum niet gevonden
      End If
   End With
   'Application.Goto c, 0
   Exit Sub

ToonAlles:
   c.EntireColumn.Hidden = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("C4:C8")) Is Nothing Then ChangeWSName
End Sub

Sub Horizontaal()
   With Sheets(Sheets("Voorbeeld").range("a1").value)

With sheets(range("a1").value)