Område som kommasepareret fil

med lidt kode. Denne tager det område den aktive celle befinder sig i (ubrudt område)
du kan også ændre det til markeret område.



Sub make_csv()
    Dim wb As Workbook, Filnavn As String
    ActiveCell.CurrentRegion.Copy
    'Selection.Copy
    Set wb = Workbooks.Add(xlWBATWorksheet)
    wb.Sheets(1).Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Filnavn = Application.GetSaveAsFilename(fileFilter:="CSV Filer (*.csv), *.csv")
    If Filnavn <> False Then
    wb.SaveAs Filename:=Filnavn, FileFormat:=xlCSV, CreateBackup:=False
    wb.Close savechanges:=False
    End If
End Sub

Den melder fejl ved:
If Filnavn <> False Then

If Filnavn <> "False" Then

Selvfølgelig.
Mange tak.
Lægger du et svar?

jow 8-)