CSV Macro - not working in Mac Excel 2011

[Nobranalon]

Hello everyone,

I'm aware that certain functions in MAC excel are not compatible with Windows excel, FileFormat being an example. I need the following Macro to work for users using Windows Excel 2010, or Mac Excel 2011. I've done a number of searches and have tried a few adjustments, but nothing is working properly. Any ideas?

Here is the macro - I would like the output to always be CSV:

Please Login or Register  to view this content.

Sub CSVFile()

Dim SrcRg As Range
Dim CurrRow As Range
Dim CurrCell As Range
Dim CurrTextStr As String
Dim ListSep As String
Dim FName As Variant
FName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")

ListSep = Application.International(xlListSeparator)
If Selection.Cells.Count > 1 Then
Set SrcRg = Selection
Else
Set SrcRg = ActiveSheet.UsedRange
End If
Open FName For Output As #1
For Each CurrRow In SrcRg.Rows
CurrTextStr = мо
For Each CurrCell In CurrRow.Cells
CurrTextStr = CurrTextStr & """" & CurrCell.Value & """" & ListSep
Next
While Right(CurrTextStr, 1) = ListSep
CurrTextStr = Left(CurrTextStr, Len(CurrTextStr) - 1)
Wend
Print #1, CurrTextStr
Next
Close #1
End Sub

Please Login or Register  to view this content.

Thanks in advance for looking at this.

[Nobranalon]

Anyone have any idea on this?

Thanks