Datei Öffnen Makro funzt nicht

Sub DatOeffnen()
Dim filename As String
filename = ActiveCell.Value & ".xls"
If Dir("C:\Rechnung" & filename) = "" Then
MsgBox ("Die Datei " & filename & " konnte nicht gefunden werden!")
Else
Workbooks.Open (filename)
End If
End Sub

Trotz vorhandener Datei erscheint nut die MSGBox. Doof das! Wer sieht den Fehler?
Vielen Dank schonmal!
Leider läßt sich der xlWebFinder nicht aufrufen bei mir, er bringt nur ´ne Fehlermeldung, aber das ist ein anderes Thema.