Sub virgola() Dim MyRng As Range Dim Cella As Range Set MyRng = Selection MyRng.NumberFormat = "0.00000" For Each Cella In MyRng If IsNumeric(Cella.Value) And Cella.Value <> "" Then Cella.Value = Cella.Value / 100000 End If Next Cella Set MyRng = Nothing End Sub