Microsoft
Software
Hardware
Network
Question : Excel 2010 - Couple of Message Box questions
I am running the following script in my ever growing price list project. I am almost there and juts putting some polish on it. How do I make the default button for the first of the message boxes default to 'No'.
Also, how do I get a Question Mark icon in the corner of the box
Private Sub Workbook_Open()
MB = MsgBox("Last updated on " & Worksheets("Maintenance-Sh
eet").Rang
e("G7").Va
lue & Chr$(13) & Chr$(13) & "Would you like to import the latest data feed?", vbYesNo, "Import data feed?")
If MB = vbYes Then
CombinedImportandFormat
MB = MsgBox("Would you like to check for new product lines?", vbYesNo, "Check for new product lines?")
If MB = vbYes Then
UpdateFromFeed
MB = MsgBox("Would you like to format the Price List's formulas?", vbYesNo, "Format Price List?")
If MB = vbYes Then
FormatPriceListandFormulas
Else
PreWorkQuestion
End If
Else
PreWorkQuestion
End If
Else
PreWorkQuestion
End If
End Sub
Thanks
Answer : Excel 2010 - Couple of Message Box questions
for default button use
vbYesNo + vbQuestion + vbDefaultButton2
-->
MB = MsgBox("Last updated on " & Worksheets(1).Range("G7").
Value & Chr$(13) & Chr$(13) & "Would you like to import the latest data feed?", vbYesNo + vbQuestion + vbDefaultButton2, "Import data feed?")
Random Solutions
Move exchange storage group to another drive
Generated Migration Scripts for Models via Console
I am having trouble opening a .bat file in a VBA Excel Macro
Operation Must Use an Updateable Query
Clearing a submit form once submitted
printer driver
Extract Objects from Stream
What is the best cms to use with dreamweaver
Where do I need to close/Dispose of my connections, in my code
object required error