Boa tarde,

Veja se este código de exemplo te ajuda:

Sub CopiarFC()
    Dim IntervaloOrigem As Range
    Dim IntervaloDestino As Range
    Dim Pl As Worksheet
    
    'Define o intervalo de origem
    Set IntervaloOrigem = ActiveSheet.[A1:E5]
    
    'Copia o intervalo original
    IntervaloOrigem.Copy
    
    'Laço para percorrer todas as planilhas
    For Each Pl In Worksheets
        
        'Seleciona a planilha
        Pl.Select
        
        'Define o intervalo de destino
        Set IntervaloDestino = ActiveSheet.[A1:E5]
        
        'Cola somente a formatação no intervalo de destino
        IntervaloDestino.PasteSpecial xlPasteFormats
    Next
    Application.CutCopyMode = False
End Sub

Abraço

Muito obrigado, deu certo sim!

Valew!