If FileExists( "c:\BookforTestData.csv ") Then Kill "c:\BookforTestData.csv " End If Workbooks.Add With ActiveSheet.QueryTables.Add(Connection:= "TEXT;E:\test.csv ", Destination _ :=Range( "A1 ")) .Name = "test " .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = Fa...