XL97: Compile Error Passing ParamArray (157351)

RESOLUTION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact a Microsoft Certified Partner or the Microsoft fee-based consulting line at (800) 936-5200. For more information about Microsoft Certified Partners, please visit the following Microsoft Web site: For more information about the support options that are available and about how to contact Microsoft, visit the following Microsoft Web site: To work around this problem, add "ByVal" (without quotation marks) to the argument receiving the ParamArray in the function that is being called.

For example, the following macro code returns an error when you run the "Test" subroutine:

   Sub Test()

      x = myfun(1)
      MsgBox x

   End Sub

   Function myfun(y As Integer, ParamArray myarr() As Variant) As Integer

      myfun = otherfun(y, myarr)

   End Function

   Function otherfun(y As Integer, myarr As Variant) As Integer

      otherfun = y * 2

   End Function
				

If you change the "otherfun" function declaration to

   Function otherfun(y As Integer, ByVal myarr As Variant) As Integer
				

and run the "Test" subroutine, you get a message box with a value of 2 displayed.