Run-time error '5922' - Mail Merge

[snb]

With CreateObject("Q:\Index\Documents\FlatStation Quotation.dotm") 
    .Application.visible=True 
    .MailMerge.Execute 
    .application.activeworkbook.saveas2 "G:\OF\invoices " & format(date,"yyymmdd") & ".docx"
    .Close 0 
End With