XL beendet sich einfach so

ich als blutiger Makro-Anfänger habe folgenden Code geschrieben:

Sub varDatei()

R = Application.GetOpenFilename
Range("A2").Activate
ActiveCell.FormulaR1C1 = "='" & R & "Status'!F15"

End Sub

Wenn ich dieses Makro ausführe, schließt sich XL ohne Vorwarnung, einfach zu, weg, beendet!
Ziel des o.g. Makros soll es sein, in die Zelle A2 einen Wert aus einer ausgewählten Datei R (welche dynamisch ist) und davon aus dem Sheet "Status" Zelle F15 den Wert zu ziehen. Das Sheet und die Zelle sind in jeder dynamischen Datei die gleiche, da es Dateien sind, die monatlich erstellt werden.
Wieso funzt das mit obigen Makro nicht so wie ich will, sondern beendet XL?
Vielen Dank für Inspirationen/Hilfen