Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Range("F3") = ""
If Target <> Range("a1") Then Exit Sub
If Target = "A" Then Range("f3") = Range("c1") * Range("D1")
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
'This is to limit the execution of the code only when A1 changed
.Address(0,0) <> "A1" Then Exit Sub
' For Entire column A
'.Column <> 1 Then Exit Sub
.Value <> "A" Then Exit Sub
Application.EnableEvents = False
.Offset(2,5).Value = .Offset(,1) * .Offset(,2).Value '<- change to suite
Application.EnableEvents = True
End With
End Sub