With CreateObject("Q:\Index\Documents\FlatStation Quotation.dotm") 
     .Application.visible=true
     .MailMerge.Execute 
     .Close 0
 End With
PS. What's the benefit of the combination 'savecopyas' & 'Kill' ?