Boa tarde

Estou usando está macro, no entanto, ocorre erro, pode me ajudar?

Grato

Public Sub TextoParaNumerico()
    
    'Declaramos a Variavel como Tipo Range
    Dim rngCelula As Range

    'Definimos e setamos o endereço(Fixo) a ser convertido
    Set rngCelula = Range("[#Tudo];[Valor Dinheiro (Cédulas)]:[Valor Estorno]")
    
    'Convertemos todos os valores no endereço definido
    With rngCelula
        .NumberFormat = "General"
        .FormulaLocal = rngCelula.Value
    End With
     
End Sub