Makro Excelmappe auf USB Stick speichern

Sub USBspeichern()
' USBspeichern Makro
' Makro am 31.12.2007 von Sprekelmeyer aufgezeichnet
Dim Datum, Tag, Monat, Jahr As String
Dim Uhrzeit As Date
Tag = Format(Day(Date), "00")
Monat = Format(Month(Date), "00")
Jahr = Format(Year(Date), "0000")
Uhrzeit = Format((Time), "hh:mm:ss")
Datum = Jahr & Monat & Tag & " " & Uhrzeit & " "
´Dateiname = InputBox("Bitte geben Sie einen Dateinamen ein:", "Datei speichern", "Daten.xls")
Dateiname = Datum & "Daten.xls"
ActiveWorkbook.SaveAs "I:\Sicherungen_ehs\" & Dateiname, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
End Sub

Leider Funktioniert es nicht, dieser Bereich:
ActiveWorkbook.SaveAs "I:\Sicherungen_ehs\" & Dateiname, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
wird immer als Fehler angezeit.
Weiß jemand was hier nicht funktioniert?
MfG