automated pop up message when entering certain values to notify

Dbod_BUDGET_TEMPLATE_NEW_test popup.xlsmHi,

I have created a budget template.
In some instances, a discount is offered when more that x amount of products are ordered ( it varies,so I'll have to change the macro for each instance). I'd like to have a pop up box appear ( and dissapear again when pressing 'enter') that gives a notification like: a discount is applicable, please select'


my cell with entered amount is "I54", and want a message if entered above 5

I tried the below and swapped places between sentence 1 and two as it doesn't seem to recognize subname, or sub start, or it just dissapears from my macro list ( although still a module):
driving me nuts that i can't figure it out as I KNOW it's a simple mistake.. ( in the below order, it stated it expects the sub to end after sentence 1, if i remove sub popup () ( the title) ut just deletes the thing from my macro lsit,w hat is goign on!, and it just wont work)


'Sub popup()
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Target.Parent.Range("I54")
If Target.Count > 1 Then Exit Sub
If Intersect(Target, rng) Is Nothing Then Exit Sub
If Target.Value > 5 Then
MsgBox "a discount is applicable, please select"
End If
End Sub

can someone restore my sanity please?

thanks!

Please Login or Register  to view this content.

With the popup sub, you'll need to pass Target into it, so will be Sub PopUp(Target as Excel.Range)