最大値を求めたいならWorkSheetFunction.MAX使えば良いんじゃね?