Sub AutoExec() On Error Resume Next Application.TaskPanes(wdTaskPaneFormatting).Visible = True On Error GoTo 0 End Sub Sub AutoNew() AutoExec End Sub Sub AutoOpen() AutoExec End Sub