*EhYEDC2 Es*Can quit without comparing the last valuekey44HR KQVerdanaE8E EC2 Es8Compare all values to Max starting with the first valuekey33HR KQ$Verdana*dEDpEwDr2 EsReturn the largest value passed to this function Max("a","b","c") returns "c" Max(-10, -100) returns -10 Example of Do .. Loop Until Store the last valuekey27HR KQ$Verdana*E$CCffC  key24HR KQ$Verdana DSE`EC%2 Es/Compare all values to Min except the first onekey12HR KQ$VerdanaRE)=EDC2 EsStore the first valuekey10HR KQVerdana CDEwDr2 EsReturn the smallest value passed to this function Min("a","b","c") returns "a" Min(-10, -100) returns -100 Example of Do While .. Loop Let i be the first indexkey4HR KQ$VerdanaE$CCffC  key1HR KQ$VerdanapDBGDEz D5 "Function Min(ParamArray Values())key2HR KQ$Verdana UDgE)\C)\Cd Endkey3HḸR KQ$Verdana D)=EDC2 i = LBound(Values, 1)key9HR KQ$Verdana D23hẸDffC2 Min = Values(i)key11HR KQ$Verdana 2QD>E1ECh4 i < UBound(Values, 1) ?key13HR KQ$Verdana ]߶D{EFDC2  i = i + 1key15HR KQ$VerdanaHHD\EEC4 Min > Values(i) ?key19HR KQ$VerdanaEp}F̣DffC12 Min = Values(i)key22HR KQ$VerdanạEBGDq=Ez D5 "Function Max(ParamArray Values())key25HR KQ$VerdanaxE7F)\C)\C,d Endkey26HḸR KQ$Verdana*E8E&EC2  Max = Values(UBound(Values, 1))key32HR KQ$Verdana*$EiEDC2 i = LBound(Values, 1)key35HR KQ$VerdanaE= UBound(Values, 1) ?key39HR KQ$Verdana*0E{EFDC2  i = i + 1key40HR KQ$Verdana*EsEDCp2 Max = Values(i)key42HR KQ$Verdana q R KQ$Verdana EC EFD  R KQ$Verdana ED ED  R KQ$Verdana E(E EP>E  R KQ$Verdana E0OE EhE EsBfZR KQ$Verdana@lE0OE%EhE  R KQ$Verdana E0|E EXE  R KQ$Verdana EhE E8E  NoR KQ$Verdana@DXE DE d R YesR KQ$VerdanaEHE DE! R KQ$VerdanaDHE@DXE"  NoR KQ$VerdanaDE`EE EHE#d R YesR KQ$Verdana`EE%E|F$  R KQ$Verdana 3E|F7E$F@?EEBEXECE@ECE`EBEXEp