Hi,

Right click your sheet tab, view code and paste this in.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < "$H$2" Then Exit Sub
Application.EnableEvents = False
If UCase(Range("$H1").Value) = "NO" Then
Target.Value = 10
End If
Application.EnableEvents = True
End Sub

Mike

"m4goaldad" wrote:

H2 has a default value of 10. H2 needs to be changeable by a user and the
amount allowed in H2 is infinite, but if H1 = "no" then H2 must equal 0. If
H1 = "Yes" the H2 must equal the amount entered, or if no amount is entered
by user, it must equal the default value of 10. How in the world do I do
that.