And the struggle continues : ref: Ben 12:05:50 09/21/01

Ben

Below is the last tip I was given on 9/21. Followed by my macro as is to date. The current hang up point is marked with ">>>>>>". See below.
_____________________________________________________

Milan,

The only thing I changed was added and End If to your code. Try this, it works for me:

Sub Auto_Open()

fileToOpen = Application.GetOpenFilename("text files (*.txt), *.txt")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
Workbooks.OpenText Filename:=fileToOpen, Origin:=xlWindows
End If

End Sub

-Ben O.
_____________________________________________________

My macro below as is to date. See >>>>>>
____________________________________________________

Sub auto_open()
'
' auto_open Macro
' Macro recorded x/x/xx by xxxxxxx
'
fileToOpen = Application.GetOpenFilename("text files (*.txt),*.txt")
If fileToOpen <> False Then
MsgBox "Open" & fileToOpen
Workbooks.OpenText FileName:=fileToOpen, Origin:=xlWindows
>>>>>> StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=True, _
Space:=False, other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 2), Array( _
3, 2), Array(4, 2), Array(5, 9), Array(6, 2))
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Selection.End(xlToRight).Select
Range("A1:E200").Select
Selection.RowHeight = 27.25
With Selection.......

Etc, Etc, Etc..............

End Sub
______________________________________________________