Maximum function

Hello all,
I'm new in VBA. I'm trying to code a maximum function but despite all my effort and reading I can figure out why it's no working.
The function is suppose to work with array as input or a any selected range from the spreadsheet. Simply I trying to reproduce the build in Exel "MAX" function. this is my code

Please Login or Register  to view this content.

Thank for your helps