"Tom Ogilvy" wrote in message ...
Dim vArray as Variant
vArray = Application.GetOpenFilename( _
FileFilter:="Text Files (*.adv), *.adv", FilterIndex:=1, _
Title:="Copy Text File To Worksheet",MultiSelect:=True)
If isarray(vArray) Then
for i = lbound(vArray) to ubound(vArray)
Workbooks.OpenText Filename:=vArray(i),_
Origin:=xlWindows, StartRow:=1, _
DataType:=xlFixedWidth, _
FieldInfo:= _
Array(Array(0, 9), Array(22, 2), Array(30, 9))
Next
End If


--
Regards,
Tom Ogilvy


"milus" wrote in message
m...
I receive plain text files in the form of:
snip

Tom
Thanks for the prompt reply. I'll give it a try after vacation
Pat