Sub Import10() ThisFile = "C\sales.txt" Open ThisFile For Input As #1 For i = 1 To 10 Line Input #1, Data Cells(i, 1).Value = Data Next i Close #1 End Sub