Sub GetAnswer2() If MsgBox("Continue?", vbYesNo) = vbYes Then ' ...[code if Yes is clicked]... Else ' ...[code if Yes is not clicked]... End If End Sub