Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim myvalue As String If IsNumeric(Target.Value) Then myvalue = Target.Value Application.EnableEvents = False Target.Value = 100 * myvalue Application.EnableEvents = True End If End Sub