Richards Pozzer

Eu fiz o seguinte: Criei uma macro a partir da seleção de um intervalo: Primeiro selecionar o intervalo desejado e depois ativar a macro. Public Sub f2_enter() 'declarar as variaveis Dim oRange As Range Dim ocell As Range 'setar o intervalo selecionado para dar o comando. Set oRange = Selection For Each ocell In oRange Application.StatusBar = "Aguarde.... formatando " & ocell.Value If ocell.HasFormula = True Then ' aqui avalia se o conteúdo da célula tem fórmula Else ocell.Activate ocell.Value = ocell.Value End If Next Application.StatusBar = False End Sub