Sub ShowSeparatorInfo()
Dim ap As Application
Set ap = Excel.Application
With ap
Debug.Print .DecimalSeparator
Debug.Print .ThousandsSeparator
Debug.Print .UseSystemSeparators
End With
End Sub
UseSystemSeparators needs to be set to FALSE if the Decimal and Thousands separators are set to something non-standard.