In einem Ordner befinden sich mehrere Dateien,
es soll immer die zuletzt erstellte Datei geöffnet werden !
Sub NeuesteDatei()
   Merkdatum = 0
   Dateiname = ""
   Pfad = "C:\TEMP"
   FName = Dir(Pfad & "\*.xls")
   Do While FName <> ""
      Datum = FileDateTime(Pfad & "\" & FName)
      If Datum > Merkdatum Then
         Merkdatum = Datum
         Dateiname = Pfad & "\" & FName
      End If
      FName = Dir()
   Loop
   If Dateiname <> "" Then Workbooks.Open Dateiname
End Sub