Macro that converts xls to csv

[carl]

I am using this code:

If IsArray(FName) Then

Application.ScreenUpdating = False

For N = LBound(FName) To UBound(FName)

Set Awb = Workbooks.Open(FName(N))

Awb.SaveAs Filename:=Left(Awb.Name, Len(Awb.Name) - 4),
FileFormat:=xlCSV

Awb.Close savechanges:=False

Next

Application.ScreenUpdating = True

End If



Application.ScreenUpdating = True

ActiveWorkbook.Close savechanges:=False

End Sub

My Regional Setting for delimiter is Semi-Colon.

Recently my company has switch us from Office/Excel 2000 to XP/Excel 2003.

Now when I run this code, the file created is comma delimited. I need the
file to be Semi-Colon delimited.

Is there a way to fix this ?

Thank you in advance.