Hallo Ralf
Das hatte ich schon gegooglet, leider komme ich mit dem Einbau in den Code nicht zureckt.
Dateiname = Dir$("ThisWorkbook/*.xls*")
Dateiname = Dir$("Thisworkbook.path/*.xls*") den das funktioniert leder nicht
Susanne