Aktive Zelle in Spalte D

Hallo liebe Excelgemeinde
in der Recherche leider nichts passendes gefunden.
Ich suche nach einer Lösung das der Anwender gezwungen ist die aktive Zelle
bei Makroauslösung in Spalte D zu haben sonst wird der Wert an verkehrter Stelle eingegeben.
mein Baukasten funktioniert nicht
If ActiveCell <> Columns("D") Then Exit Sub
Ganzer Code:

Sub Dateizu()
Dim dat As Variant
If ActiveCell <> Columns("D") Then Exit Sub
dat = Application.GetOpenFilename
If dat = False Then Exit Sub
ActiveCell.Value = dat
Application.Goto Reference:=Range("A102"), Scroll:=True
End Sub