Dear Sir,

I have a piece of code (replace 3** with 3000000)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As String
x = Target.Value
If Right(x, 1) = "*" Then
Target.Value = Replace(x, "*", "000")
End If
End Sub

Is there any way that It would be easy for the user to activate/deactivate
the replacement with a click of checkbox (prefereble in the toolsBar) that is
very accessible.
What would be the best solution for activat/deactivate the REPLACEMENT?

thanks!