Auto select in a drop down box

Try this...

Sub Demo()
MyList = Range("A1").Validation.Formula1
MyArray = Split(MyList, ",")
MyChoice = Int((UBound(MyArray) + 1) * Rnd())
Range("A1") = MyArray(MyChoice)
End Sub

assuming validated cell is A1 and you have no commas in your possible validated values.

Hey,

Sorry to be a bit of a nuisance, but could you possibly apply the formula in a sheet and show me how t works... I'm a little confused.

Thanks for this! your a life saver!

aidan g.

Its a macro, not a formula.

Hit alt F11, right click on the explorer tree to add a module and paste the code in there.

Then back on the worksheet, hit tools-macros-run to run the macro.