Sub Popup2x2() MsgBox (2 + 2) End Sub