Compare column number of a cell with the last cell column number in a loop

Originally Posted by Marc L

Existing macro is crappy !

Sub CSVExportUTF8()
    FileName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")
    If FileName = False Then Exit Sub
    RC = [A1].CurrentRegion.Value

    With CreateObject("ADODB.Stream")
        .Charset = "UTF-8"
           .Type = 2
        .Open

        For R& = 1 To UBound(RC)
            .WriteText Join(Application.Index(RC, R), ","), 1
        Next

        .SaveToFile FileName, 2
        .Close
    End With

    End
End Sub

That worked perfect! :D Though i am still trying to figure out what exactly you did here :P