Message box in excel

I made the following code. Basically if a cell value is 300000 then a message box appears saying "You have selected grants of £30000". Same thing for 500000. The issue I am having is, after the pop up message is appearing, I have to click on "ok" 2 times before it closes. I only want to press on ok once for it to close. How to fix this?

Option Explicit

Private Sub Worksheet_Calculate()

Dim Rng1 As Range
Dim Value As Double
Dim Prompt As String
Dim Title As String

'Put the range you want to look at here
Set Rng1 = Range("B7")

'Put the target value here
Value = 500000

'Put the message (prompt) of the message box (pop up) here
Prompt = "You have selected a grant of £500000"

'Put the title of the message box (pop up) here
Title = "Title"

If Rng1.Value = Value Then
MsgBox Prompt, vbInformation, Title
End If





'Put the range you want to look at here
Set Rng1 = Range("B7")

'Put the target value here
Value = 300000

'Put the message (prompt) of the message box (pop up) here
Prompt = "You have selected a grant of £300000"

'Put the title of the message box (pop up) here
Title = "Title"

If Rng1.Value = Value Then
MsgBox Prompt, vbInformation, Title
End If

End Sub

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

Thanks for that, but for some reason I still need to press 'Ok' twice for the pop up message to close

I made a message box if the values 5000000 and 3000000 are entered in a cell. This is my code:

Please Login or Register  to view this content.

I am facing one problem. When the message box is appearing, I have to double click on OK to close the message. I only want to press ok once for the message to close. Not twice

Really? That's weird.

Anyway I have used your code and for some reason now I only have to press once. Thanks for that

Another question, can you have a look at what I posted here: http://www.excelforum.com/excel-prog...insurance.html

And see if you can help me with that?

Thanks!

Threads are merged now.
Don't create duplicated threads.

As I pointed please read Forum Rules and don't ignore requests or expect to be locked.