LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 454
Default Message Box Q

Below is a portion of my code that I am trying to use to Mail a Report
If a certain value is in Report K6. I have introduced a Message Box
with Yes/No and my code is not mailing, but has not error messages.

The scenario in my example below is: If the City shown is London a
message box should appear that asks "Are you sure you wish to e-mail
Joe Bloggs", if user clicks "No" then the whole sub should exit
(reverting to cell K6). If user select "Yes" then sub should continue
and run the macro "Mail_Joe_Bloggs"

This macro ""Mail_Joe_Bloggs" does work as it did run before I tried
to introduce the message box

Thanks



With Worksheets("Report")
If .Range("K6").Value = "London" Then

Msg = "Are You sure you wish to e-mail Joe Bloggs?"
Title = "Correct City Test"
Response = MsgBox(Msg, vbYesNo + vbQuestion, Title)

End If

If Response = vbNo Then
MsgBox "Go Back and Change to Correct City"
Sheets("Report").Activate
Range("K6").Select
Exit Sub
End If

If Response = vbYes Then

Mail_Joe_Bloggs

End If

End With

 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
replace VBA run-time error message with custom message BEEJAY Excel Programming 13 July 14th 06 03:59 PM
Replace Excel Message w/Custom Message Kevin R Excel Programming 1 May 18th 06 04:13 PM
Intercept/replace standard 'cell protected' message with my own message? KR Excel Programming 3 March 16th 06 02:31 PM
Opening an attachment of a message that has a message as attachmen vetron Excel Programming 0 January 30th 06 06:17 PM
Displaying a message in a message box without requiring user to click anything to proceed Android[_2_] Excel Programming 2 June 25th 04 06:44 PM


All times are GMT +1. The time now is 09:38 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"