CSV Export med " fra excel

Her er en gem via kode

Sub GemCSV()
    Dim Data As Variant, I As Integer, X As Integer
    Application.ScreenUpdating = True
    Data = Sheets("data").Range("A1:D100") ' ret til dit område
    Open "C:\Data\Test.csv" For Output As #1
    For I = 1 To UBound(Data, 1)    ' rækker
        For X = 1 To UBound(Data, 2) - 1    ' kolonner
            Print #1, Chr(34) & Data(I, X) & """;";
        Next
        Print #1, Chr(34) & Data(I, UBound(Data, 2)) & Chr(34)
    Next
    Close #1
End Sub

Post et svar, og vi lukker denne her af..

;-))