Change back to default decimal point separator in Excel for Mac

[Zem32619]

Hi, Excel Masters.
In need of your help again. I'm creating a macro code that will convert the comma decimal separator to point(.). The problem is, when the macro was ran on Mac it didn't go back to the original/deault decimal point separator. And all the excel files are now having comma as decimal separator. Below is the code that I used. Can you please help me for a solution to change back to decimal point separator? Thank you in advance.

Dim bCurrent As Boolean

bCurrent = Application.UseSystemSeparators
If bCurrent Then
Application.DecimalSeparator = ","
Application.ThousandsSeparator = "."
Application.UseSystemSeparators = False 'change the current separator to windows default in US setting
MsgBox "You're NOT Using the default System Separators"
Else
Application.UseSystemSeparators = True 'will directly process the excel with the windows default in US setting
MsgBox "You're using default System Separators"
End If

 

[rlv01]

Since you know what you changed, why not add some code to explicitly change it back?

    Dim bCurrent As Boolean

    bCurrent = Application.UseSystemSeparators
    If bCurrent Then
        Application.DecimalSeparator = ","
        Application.ThousandsSeparator = "."
        Application.UseSystemSeparators = False       'change the current separator to windows default in US setting
        MsgBox "You're NOT Using the default System Separators"
    Else
        Application.DecimalSeparator = "."
        Application.ThousandsSeparator = ","
        Application.UseSystemSeparators = True        'will directly process the excel with the windows default in US setting
        MsgBox "You're using default System Separators"
    End If

I have no idea if it will work or not, since I don't have a Mac to test, but there is a decent chance it will.

 

[Zem32619]

Hi rlv01,

Sorry for the very late reply. Thank you for the code. Haven't thought about that. Seems it works. Thank you so much again.