Public Sub OpenTextTest() Dim FileName As String FileName = ThisWorkbook.Path & "\Data.txt" Call Workbooks.OpenText(FileName:=FileName, DataType:=xlDelimited, Tab:=True, DecimalSeparator:=",", ThousandsSeparator:=".")End Sub