Save Multiple Excel Sheets from a Workbook into Multiple Text Macintosh Format VBA

Hi All,

I have a VBA code that successfully saved multiple excel sheets into multiple Text Delimited files. Here is the VBA Code:

Sub saveSheets()
Dim mySheet As Worksheet
Dim newName As String
For Each mySheet In Sheets
    newName = mySheet.Name
    mySheet.Copy
    ActiveWorkbook.SaveAs Filename:=newName, FileFormat:=xlText
    ActiveWorkbook.Close False
Next
End Sub

This code has fruitfully saved all text delimited files from a workbook into a folder.

But I want to save all these text files into Text Macintosh format. I am pretty new to VBA and I have found the above VBA code in ExcelForum.com only.

Can someone tell me what changes in the code would provide me Text Macintosh format files?

Thanks in Advance.