Excel macro to export CSV for InDesign

in-design-export.bas

Sub InDesignExport()

    Dim csvFilename As String
    Dim transpose As Boolean
    
    csvFilename = Mid(ActiveWorkbook.FullName, 1, InStrRev(ActiveWorkbook.FullName, ".")) & "txt"
    
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    transpose = Selection.Rows.Count > Selection.Columns.Count
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, transpose:=transpose
    Application.CutCopyMode = False
    ActiveSheet.Cells.Replace What:=Chr(10), Replacement:=" "
    Application.DisplayAlerts = False 'Possibly overwrite without asking
    ActiveWorkbook.SaveAs Filename:=csvFilename, FileFormat:=xlUnicodeText, CreateBackup:=False
    ActiveWindow.Close
    Application.DisplayAlerts = True
End Sub