Until we get a reply, you could just try inserting the tab after th
file is already opened:

Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1")
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False
FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=Tru

--
Loss
-----------------------------------------------------------------------
Losse's Profile: http://www.excelforum.com/member.php...fo&userid=2481
View this thread: http://www.excelforum.com/showthread.php?threadid=38833