Excel – Recolher o formato de uma célula

Este post faz parte de uma série de pedidos de ajuda que ao longo dos anos me foram chegando. (Fev/2002)

Macro que recolhe, permitindo copiar, o formato de uma célula

Sub jjGetFormat()
    Dim Formato As String, x As String, Texto As String
    
    Texto = "Para copiar o formato basta seleccionar " & _
            " o texto e pressionar CTRL+C"
    
    Formato = ActiveCell.NumberFormatLocal
    
    x = InputBox(Texto, _
             "Formato numérico de " & _
             ActiveCell.Address, _
             Formato)            
End Sub