need help with macros!!!!

[themole]

basically what i'm after is help with a macro that will keep running until a certain value is obtained.

what i've got is 11 lots of values, which is randomized from a list of about 200.

below that is a cell which calculates the total value of the 11 values i have.

what i want is someway which i can run a macro to keep randomizing these 11 values until the total value reaches 50. (i just don't want to sit there and keep hitting F9 all night long)

regards,
Steve

 

[Scott Huish]

Why are you including numbers as high as 200 when you want a total of 50 from the 11 cells?

 

[themole]

ok, sorry, i should have explained it better.

what it is ive got a list of about 200 different names each with their own value.

ive set up formulas to randomise 11 different names (including their values)

what i'm after is someway to set a macro to keep running/looping untill total value of 11 randomised names equals to 50 exactly

 

[Weaver]

Say your cells are A1:A11

do
  calculate
until worksheetfunction.sum(range("A1:A11")) = 50

HTH

PS maybe you should then freeze your values

range("A1:A11").value = range("A1:A11").value

 

[themole]

copied that into vb code, error message comes up when run macro

???

 

[Weaver]

Might help if you told me what the error was....

 

[Weaver]

my apologies

Sub test()
    Do
        Calculate
    [B]Loop [/B]Until WorksheetFunction.Sum(Range("A1:E1")) = 50
    Range("A1:E1").Value = Range("A1:E1").Value
End Sub