Bom Dia Pessoal,

Fiz uma planilha com a função abaixo:

Sub Salvar_Pedido()
     'Saves filename as value of A1 plus the current date
     
    Dim newFile As String, fName As String
    Application.ScreenUpdating = False
     ' Don't use "/" in date, invalid syntax
    fName = Range("I15").Text
     'Change the date format to whatever you'd like, but make sure it's in quotes
    newFile = "Pedido " & fName & " -" & " " & Format$(Date, "dd-mm-yyyy")
    ChDir _
    "C:Google DrivePedidos Pendentes"
    ActiveWorkbook.SaveAs Filename:=newFile
    

No Windows em Português funciona direitinho, só que quando vou abrir a planilha no Windows XP em Inglês dá erro no objeto "Date" da linha newFile.

Alguem sabe me dizer porque?? Já mudei formato de data, região e nada!!!!