Sub Cuesheet
Dim fso As Object, txtFile As Object, cell as Range, FILEPATH as String
FILEPATH = Environ("USERPROFILE") & "\Desktop\cuesheet.cue"
Set fso = CreateObject("Scripting.FileSystemObject")
Set txtFile = fso.OpenTextFile(FILEPATH, 2, True)
With Sheets(2)
For Each cell In .Range("E3:E80" & .Cells(Rows.Count, "E").End(xlUp).Row)
txtFile.WriteLine cell.Value
Next
End With
txtFile.Close
Set fso = Nothing
Set txtFile = Nothing
End Sub