Sub OutputNotesXML() Dim iRow As Long With ActiveSheet 'For iRow = 2 To 2 For iRow = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row Dim DOC As Object Set DOC = CreateObject("ADODB.Stream") DOC.Type = 2 DOC.Charset = "utf-8" DOC.Open DOC.WriteText "" DOC.WriteText "" DOC.WriteText "" DOC.WriteText "" DOC.WriteText .Cells(iRow, "A").Value 'Title DOC.WriteText "" DOC.WriteText "" DOC.WriteText "" DOC.WriteText CBr(.Cells(iRow, "C").Value) 'Note DOC.WriteText "]]>20120202T042955Z20120202T070232Z" DOC.WriteText .Cells(iRow, "B").Value 'Tag DOC.WriteText "34.03670000000000-118.4060000000000135.59999847412109mobile.android" DOC.SaveTofile "C:\Users\G\Downloads\Evernote\" & iRow & ".enex" Next iRow End With End Sub