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.

FileFormat:=xlCSVMac

Originally Posted by slx

FileFormat:=xlCSVMac

Thank you so much for your help. By the way FileFormat:=xlCSVMac generated CSV files. However, I have got a clue from your provided answer. I have just alter the file name a bit i.e. FileFormat:=xlTextMac, and it has produced the desire results I wanted.

Thank you again.