Public Function rand() a = Round(Rnd * 200, 0)
b = WorksheetFunction.Min(Round(Rnd * 200, 0), 200 - a) c = WorksheetFunction.Min(Round(Rnd * 200, 0), 200 - a - b) rand = Hex(a) & Hex(b) & Hex(c)
End Function__________________________________________________________________________________
Sub zv