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