Sub gotoDemo() Dim Response As Integer Response = MsgBox("Do you want to create a daily report for " & _ "the head office from the current document?", _ vbYesNo + vbQuestion, "Create Daily Report") If Response = vbNo Then GoTo Bye Bye: End Sub