Word to Excel???

[Parra]

I have a macro in Word that formats a report. I also have another macro in excel that finishes the formatting and adds some formulas and totals up the numbers.

Is there a way to automatically have the excel macro run, once the word macro is finished?

Thanks

[Colo]

Hi. Please try this.

'Assumption
Word File is Open.
Excel File is Not Open.
The Excel file is in a current folder.

'--Word standard module-------------------------

Sub Word_Proc()

  Dim XlApp as object

  Set XlApp = CreateObject("Excel.Application")

  'Whatever

  MsgBox "... done", , "Word_Proc"

  With XlApp

    .Visible = True

    .workbooks.Open ("Book1.xls")

    .Application.Run "XL_Proc"

  End With

  Set XlApp = Nothing

End Sub

'-------------------------------------------------



'--Excel standard module--------------------------

Sub XL_Proc()

  'Whatever

  MsgBox "...done", , "XL_Proc"

End Sub

'-------------------------------------------------