Datei öffnen

Ich habe ein Problem und zwar muss die Datei (die in der Zelle C49) definiert ist öffnen, bzw. deren Inhalt weiterverarbeiten können.

Ich habe mal was gefunden aber irgendwie geht es nicht damit:

Private Sub Button1_Change()
Dim strDatei$
Range("C49").Select
Datei = "C:\Eigene Dateien\Projekt Dateien\" & Cells(ActiveCell.Row, 1).Value
Workbooks.Open Filename:=Datei
End Sub

Vielen Dank

mfg
Simon