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-Sheet").Range("G7").Value & 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  
 
programming4us programming4us