msgbox when cell has value higher than 750

[CV899000]

Hi,

I am trying to prompt a message box if value entered into a cell exceeds 750.

I can do that with this code:

Set Target = Me.Range("B12")

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value > 750 Then
MsgBox "Large number, please consider"
End If
End Sub

Now, the problem is that I have a macro button in this sheet, that resets values in "B9", which then should reset the value of "B12" to "Input data".
But when I hit the reset button, the message box prompts several times before the value of "B12" changes from the high number to "input data", how can I fix that?
I do not want the message shown when I reset the cells.

 

[CV899000]

If Target.Address = Range("B12").Address and Application.WorksheetFunction.IsNumber(target) Then
If Target.Value > 750 And num < 750 Then
num = Target
If MsgBox("Large number, run reset?", vbYesNo + vbQuestion) = vbYes Then
'you can call reset also here
'Call Reset
End If
Exit Sub
End If
If Target.Value < 750 Then
num = 0
End If
End If

like that?

 

[S_Wish]

exactly so

 

[CV899000]

Okay, you are very good at this.

It worked! Thank you so much