A ver si alguien me puede ayudar, estoy con una macro que mete la fecha actual en un arrai, el problema es que cuando ejecuto y meto en una celda la posicion del arrray excel me pone una fecha con el mes invertido. Ejemplo hoy es dia 12/09/2019 pues en vez de ponerme este fecha me pone 09/12/2019. He probado esto, mifecha = Format(Now, "dd/MM/yyyy") meter la fecha en una variable en el formato que busco y luego meterla en el array, pero cuando ejecuto la macro me vuelbe a girar el dia y el mes... alguna idea? Option Explicit Dim nombreArray As String Dim i As Integer Dim x As Integer Dim numero As Integer Dim numfel As Integer Dim nomcliente As String Dim clienteDepurado As String Sub Clientes2() '##################### Dim MiFecha As String Dim mifecha1 As String Dim mifecha2 As String MiFecha = Date 'mifecha = Format(Now, "dd/MM/yyyy") mifecha1 = DateAdd("d", 1, Date) mifecha2 = DateAdd("d", 2, Date) nomcliente = Application.InputBox("Dime un Cliente - Pon solo las 3 primeras letras") clienteDepurado = Trim(LCase(nomcliente)) Select Case clienteDepurado Case Is = "nis" Dim niss(0 To 17) As String niss(0) = "" niss(1) = MiFecha niss(2) = "" niss(3) = "" niss(4) = "24658" niss(5) = "NISSAN MOTOR IBERICA" niss(6) = "" niss(7) = "" niss(8) = "" niss(9) = "15n" niss(10) = mifecha1 niss(11) = "" niss(12) = "" niss(13) = "" niss(14) = "" niss(15) = "" niss(16) = "k" niss(17) = "" Call cogeDatos1(niss) End End Select End Sub Sub cogeDatos1(nombreArray) For i = 0 To 17 Step 1 ActiveCell.Offset(0, i).Value = nombreArray(i) Next i i = 0 End Sub [![introducir la descripción de la imagen aquí][1]][1] [1]: https://i.sstatic.net/VODtY.png