ActiveDocument.Sheets("SH02").Activate 'edit the sheet
'ActiveDocument.reload
set objExcel=ActiveDocument.GetSheetObject("CH23") 'edit the sheet object
filepath="\\......path..........\"& SubField(Concat(MonthName, ','), ',', 1) &".xls" 'edit the location of file
objExcel.ExportBiff filepath
ActiveDocument.GetApplication.Sleep 5000
End Sub
Best Anil, When applicable please mark the correct/appropriate replies as "solution" (you can mark up to 3 "solutions". Please LIKE threads if the provided solution is helpful