Sub cloze() ' ' Macro2 Macro ' Selection.InsertBefore Text:="{{c1::" Selection.InsertAfter Text:="}}" & vbCr Selection.Collapse 0 ' End Sub