Sub InsertFile() With Dialogs(wdDialogInsertObject) .Tab = 1 .DisplayIcon = False .Link = False If .Show = True Then Call Macro1 Call Macro2 Call Macro3 Call Macro4 Call Macro5 End If End With End Sub