Buscar y pegar formato

Tengo dos conjuntos de datos de proyectos en diferentes hojas, Sheet1 y Sheet2. Cada uno tiene diferentes detalles sobre un proyecto, por lo que creé Sheet3 para combinar detalles relevantes sobre cada proyecto en un solo lugar.

Sheet1 y Sheet2 deberían tener el mismo formato para cada proyecto, pero resulta que ese no es el caso. Copiar el formato de la Hoja1 es fácil y funciona, pero por suerte, el formato más preciso está en la Hoja2.

Necesito ayuda para escribir una macro que primero borre todo el formato en un rango en la Hoja 3, luego obtenga el nombre del proyecto de una celda en la Hoja 3 (por ejemplo, C28), busque el valor de la celda en el rango de la Hoja 2, copie ese formato y vuelva a pegarlo en C28 en Sheet3, no solo C28, sino también B28 a F28. Luego pasa al siguiente proyecto hasta que llega al final del rango de datos de la Hoja 3 (fila 536).

Rango de datos de la hoja 3 para borrar el formato en: B28: F536
Rango de datos de búsqueda de la hoja 3: C28: C536
Rango de datos de la hoja 2: C3: EG24 - donde la macro encontrará el formato de celda para copiar.

Algunas celdas en el rango de búsqueda de la Hoja3 estarán en blanco o no tendrán una coincidencia en el rango de la Hoja2; la macro debería saltarse y continuar.

¡Cualquier ayuda sería apreciada!

Answer

Esto funciona:

  On Error Resume Next

 For Each cell In Intersect(Sheets("Sheet3").Range("C28:C536"), Sheets("Sheet3").UsedRange)
    
    With Worksheets("Sheet2").Range("A3:EG24")
        Set CellFound = .Find(cell.Value, LookIn:=xlValues)
        CellFound.Copy(cell).PasteSpecial Paste:=xlPasteFormats
       
    End With
    
 Next cell

Es parte de una macro más grande que hace el formateo y otras verificaciones. ¡No pensé que iba a ser tan simple!