Create txt file from excel sheet

Here's another..
Change file path to suit..

Private Sub CommandButton1_Click()
  Dim Rng As Range
        With CreateObject("Scripting.FileSystemObject").CreateTextFile("c:\April.txt", True)
            Set Rng = Cells(1, 1).Resize(Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row, 1)
            .writeline Join(Application.Transpose(Rng), vbCrLf)
        End With
End Sub