One way
m = Application.WorksheetFunction.Max(Range("A1:A30"))
--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 97/00/02/03
-------------------------------------------------------------------------- --
It's easier to beg forgiveness than ask permission

-------------------------------------------------------------------------- --