Confirmation pop-ups

[Monkeyman180]

Hi All

I created a referral form to pass work from one team to another. I copied some code from another forum post to create a send button which would submit the form when it was complete. The issue I am facing is that there is no on screen confirmation that the send function has worked meaning people often click the button multiple times and flood the inbox.

The code I am using is

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
If Not Intersect(Target, Range("D94")) Is Nothing Then
Call Email
End If
End If
End Sub

This runs a macro which uses the code (I've removed the email address whilst posting in a public forum)

Sub Email()
ActiveWorkbook.SendMail Recipients:="xxxxx@xxxxxx.com"
End Sub

Ideally I would like a pop up that reads "Thanks, your referral has been submitted"

Can anyone help?

Note - I don't have visual basic to create a button, I've had to use colour and shadow to make a cell look like a button.

Thanks

Danny

 

[FormR]

Ideally I would like a pop up that reads "Thanks, your referral has been submitted"

Hi, welcome to the board - maybe you could try this additional line:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
    If Not Intersect(Target, Range("D94")) Is Nothing Then
        Call email
        MsgBox "Thanks, your referral has been submitted", vbInformation
    End If
End If
End Sub

 

[Monkeyman180]

Ha ha! Amazing, works perfectly. You are brilliant