Sub WriteFile() ThisFile = "C:\Results.txt" On Error Resume Next Kill (ThisFile) On Error GoTo 0 Open ThisFile For Output As #1 FinalRow = Range("A65536").End(xlUp).Row For j = 1 To FinalRow Print #1, Cells(j, 1).Value Next j End Sub