Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Count > 1 Then GoTo exitMe 'more than 1 cell selected
If Target.Column <> 7 Then GoTo exitMe 'not column G
If Target.Row > 18 Or Target.Row < 9 Then GoTo exitMe 'outside valid row range
If Range("I3").Value = "" Then
MsgBox "No discount entered", vbCritical, vbOKOnly
GoTo exitMe
End If
Target.Value = Target.Value * (1 - Range("I3").Value) 'apply discount
exitMe:
Application.EnableEvents = True
End Sub
Private Sub CommandButton2_Click()
Dim x As Integer
Range("G9").Value = Range("I2") * Range("G9")
End Sub