Tengo el siguiente codigo que me extrae datos del listbox a una hoja de excel.
pero al pasar los datos que traen fecha me los coloca como mm/dd/aa y lo requiero como dd/mm/aa, cabe recalcar que los datos de las fechas estan en una fila especifica "solo en una fila". Como podria modifcar mi codigo para poder realizar el cambio.
 

Set r = Sheets("RESUMEN")
    uf = r.Range("B" & Rows.Count).End(xlUp).Row + 1
    'Worksheets("RESUMEN").Range("A4:M" & uf).ClearContents
    Dim Fcc As Date 'Declaracion de variable de tipo fecha
    Fcc = FormatDateTime(Now, vbShortDate) 'asiganos la fecha a la variable
    r.Cells(1, 1) = "REPORTE REGISTRO DE COMIDAS" 'Enviamos el nombre de la empresa a la Celda A1
    'Enviamos el nombre del Reporte
    
    
    Dim fecha As Date
    

    
    
    If Me.Combo_Confianza.value = "Confianza" Then
        r.Cells(2, 1) = "Grupo :" & "CONFIANZA"
        
        
        
        
  For X = 0 To ListBox1.ListCount - 1

  
     uf = r.Range("A" & Rows.Count).End(xlUp).Row + 1
     
        r.Cells(uf, 1).value = ListBox1.List(X, 0)
        r.Cells(uf, 2).value = ListBox1.List(X, 1)
        r.Cells(uf, 3).value = ListBox1.List(X, 2)
        r.Cells(uf, 4).value = ListBox1.List(X, 3)
        r.Cells(uf, 5).value = ListBox1.List(X, 4)
        r.Cells(uf, 6).value = ListBox1.List(X, 5)
        r.Cells(uf, 7).value = ListBox1.List(X, 6)
        r.Cells(uf, 8).value = ListBox1.List(X, 7)
        r.Cells(uf, 9).value = ListBox1.List(X, 8)
        r.Cells(uf, 10).value = ListBox1.List(X, 9)
        r.Cells(uf, 11).value = ListBox1.List(X, 10)
        r.Cells(uf, 12).value = ListBox1.List(X, 11)
         r.Cells(uf, 13).value = ListBox1.List(X, 12)
            r.Cells(uf, 14).value = ListBox1.List(X, 13)
            r.Cells(uf, 15).value = ListBox1.List(X, 14)
               r.Cells(uf, 16).value = ListBox1.List(X, 15)
               r.Cells(uf, 17).value = ListBox1.List(X, 16)
         
    
    Next X

 

Sin ver tu archivo, imposible ayudarte.