Passing arguments to a macro in another file

Hi,

I use the following macro "modifystri" in a workbook "Modify" to pass a variable to a macro ("macro1") located in a sheet ("Sheet1") in another workbook ("Test.xls")

sub modifystri ()
dim stri as string
Call Application.run "Test.xls!Sheet1.macro1", stri
end sub

The definition of macro1 located in workbook "Test.xls" is:

sub macro1 (stri as string)
      stri = "ABC"
end sub

The value of stri after calling "macro1" is still empty. I want to use "macro1" to modify the contents of stri. Please help.

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here


Couple of things. The value of stri is passed rather than the variable so you have nothing via which to return a value.

Instead of a subroutine use a function to return a value.

Function macro1() As String
    macro1 = "ABC"
End Function

stri=Application.Run("Test.xls!macro1")
msgbox stri

The other problem is that the function does not return a value if it is within a sheet module. So either move the function to a standard code module or write a new function in a code module within the workbook that uses the sheet level code.

Normally yes they are. I'm not sure this is true when you use the .Run method

You could return an array