Hi,

Something along these lines :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Set Target = Range("a1")
Target.Value = Target.Value * 3
Application.EnableEvents = True
End Sub


HTH
Carim