Here's a VB sub I use to run an Excel sub routine. All of my Excel modules are in an Excel sheet named "Macros". This one runs
Sub LocValue().
Al.

Sub DataToExcel()
Set XLsheet = GetObject("c:\excel.xls\Macros.xls")
XLsheet.Application.Visible = True
XLsheet.Parent.Windows(1).Visible = True
XLsheet.Activate
XLsheet.Application.Run "'Macros.xls'!LocValue"
XLsheet.Application.Quit
Set XLsheet = Nothing
Exit Sub
End Sub