Sub Open_Txt() Workbooks.OpenText Filename:= _ "C:\Dokumente und Einstellungen\User\Eigene Dateien\Test.txt", Origin:= _ xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _ , ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:= _ False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 1) _ , Array(3, 1), Array(4, 2), Array(5, 2)), TrailingMinusNumbers:=True Columns("A:A").EntireColumn.AutoFit End Sub