I am using the VBA code GenerateCSV to convert sheet to csv file on Excel and it is working on PC but not on Mac .
i need to convert the VBA code to work with Mac
Public Sub GenerateCSV(DataSheet)
Dim path As String
Dim FileName As String
FileName = InputBox("I will save the CSV into the same folder " & vbCrLf & " Please input the CSV File Name " & vbCrLf & "( Example : ABC.CSV ) ")
path = ActiveWorkbook.path & "\" & FileName
MsgBox path
'MsgBox DataSheet
Dim xWs As Worksheet
Dim xcsvFile As String
For Each xWs In Application.ActiveWorkbook.Worksheets
Select Case True
Case xWs.Name = DataSheet
xWs.Copy
xcsvFile = path
Application.ActiveWorkbook.SaveAs FileName:=xcsvFile, FileFormat:=xlCSV, CreateBackup:=False
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
Case Else
End Select
Next
End Sub
Bookmarks