Sub helpFile() Dim lngQ As Long lngQ = MsgBox("Do you want to delete this workbook?", vbYesNo _ + vbCritical + vbDefaultButton2 + vbMsgBoxHelpButton, _ "Delete Workbook", "c:\Help.chm", 1012) End Sub