Use the following event macro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("C5"), Target) Is Nothing Then
Exit Sub
End If
Application.EnableEvents = False
Target.Value = 0.3 * Target.Value
Application.EnableEvents = True
End Sub

--
Gary''s Student - gsnu200723