Sub Macro1 Workbooks.OpenText Filename:= _ "variable.txt", Origin:=xlMSDOS, StartRow:=1, 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:=True End Sub