This doesn't work in my subroutine:-

-----------------------------
Function MyTest(XRange as Range) as double
......
XMin = MIN(XRange)
MyTest=XMin
......
End Function
-----------------------------

It gives an error "ByRef argument type mismatch"

I don't know -
(a) why, and
(b) what to use instead.

Help, please ?


Regards

Robin

Try it this way...

.....
XMin = WorksheetFunction.Min(XRange)
MyTest=XMin
.....

--
Rick (MVP - Excel)


"Robin Clay" <Robin_B DOT Clay AT virgin DOT net wrote in message
...
This doesn't work in my subroutine:-

-----------------------------
Function MyTest(XRange as Range) as double
.....
XMin = MIN(XRange)
MyTest=XMin
.....
End Function
-----------------------------

It gives an error "ByRef argument type mismatch"

I don't know -
(a) why, and
(b) what to use instead.

Help, please ?


Regards

Robin

Trying adding this to your function:
XMin=Application.WorksheetFunction.Min(XRange)
--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"Robin Clay" wrote:

This doesn't work in my subroutine:-

-----------------------------
Function MyTest(XRange as Range) as double
.....
XMin = MIN(XRange)
MyTest=XMin
.....
End Function
-----------------------------

It gives an error "ByRef argument type mismatch"

I don't know -
(a) why, and
(b) what to use instead.

Help, please ?


Regards

Robin

Thank you !

I had tried that, but as
XMin=WorksheetFunction.Min(XRange)
without the "Application" bit.


Regards

Robin


"Michael" wrote:

Trying adding this to your function:
XMin=Application.WorksheetFunction.Min(XRange)
--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"Robin Clay" wrote:

This doesn't work in my subroutine:-

-----------------------------
Function MyTest(XRange as Range) as double
.....
XMin = MIN(XRange)
MyTest=XMin
.....
End Function
-----------------------------

It gives an error "ByRef argument type mismatch"

I don't know -
(a) why, and
(b) what to use instead.

Help, please ?


Regards

Robin