View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Patrick Molloy Patrick Molloy is offline
external usenet poster
 
Posts: 1,049
Default error when running macro from another workbook


excel 2003?

"Scooter" wrote in message
...
The code is erroring on the line - MyResult =
Application.Run(File2Update.Name & "!MonthlyUpdate"). I think your
changes
were after that.

The security setting is - Enable all macros (not recommended,
potentially dangerous code can run)

"Patrick Molloy" wrote:

it may not help but i changed your code

check the excel security levels

Sub UpdateBig()

Dim PathToFile As String
Dim File2Update As Workbook
Dim MyResult As Variant
Dim NameofFile As String

NameofFile = "abc.xls"
PathToFile = "C:\Documents and Settings\me\My Documents"
Set File2Update = Workbooks.Open(PathToFile & "\" & NameofFile)
MyResult = Application.Run(File2Update.Name & "!MonthlyUpdate")

File2Update.Save
File2Update.Close

End Sub


"Scooter" wrote in message
...
With the below code in a workbook I get "Cannot run macro. Macro may
not
be
available in this workbook or all macros my be disabled." I have
checked
that all macros are enabled under the trust center and MonthlyUpdate is
not a
private sub and does exist in the second workbook. What am I missing?


Sub UpdateBig()

Dim PathToFile As String
Dim File2Update As Workbook
Dim MyResult As Variant
Dim NameofFile As String

NameofFile = "abc.xls"
PathToFile = "C:\Documents and Settings\me\My Documents"
Set File2Update = Workbooks.Open(PathToFile & "\" & NameofFile)
MyResult = Application.Run(File2Update.Name & "!MonthlyUpdate")
Windows(File2Update).Activate
ActiveWorkbook.Save
ActiveWorkbook.Close

End Sub