Gültigkeitsliste + Makro

ich brauche bitte mal Eure Hilfe!!!

Und zwar, ich habe in einen Tabellenzelle eine Gültigkeit hinterlegt (Listed) und möchte wenn ich einen bestimmten Eintrag auswähle eine Aktion ausführen, folgendes Makro hab ich schon versucht, aber wenn ich über die Gültigkeitsliste was Auswähle gehts halt nicht

Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Range("A22").Value = "a" Then Range("A22").Value = "Hallo" 'Sheet("Admin").Range("C5").Value

End Sub

Danke schonmal für Eure Hilfe

Steffen