Sub dec() Dim lngResponse As Long lngResponse = MsgBox("Do you want to create the daily report?", _ vbYesNo + vbQuestion, "Create Daily Report") End Sub