Sub Write2x2() Selection.TypeText (2 + 2) End Sub