Hmmm. I thought that this _was_ automated!

But if the filenames don't change, then maybe you could put all the names in a
worksheet and loop through that list.

From reading JE's post, it doesn't look like Mac's can get more than one file at
a time--using .getopenfilename.

I don't have any idea if there's a workaround solution on those Macs.



Andreas Roschger wrote:

Sub DateinEinlesn()
Dim varRetVal As Variant
Dim n As Integer

do

varRetVal = Application.GetOpenFilename( _
FileFilter:="Text-Datein (*.txt), *.txt", _
Title:="Eine oder mehrere Dateien zum Öffnen auswählen")

if varRetVal = false then exit do

MsgBox varRetVal

loop

End Sub

thx, but the problem is, that i have to import a lot of files....
any possibility to automate this?

Andy

--

Dave Peterson