for each oleObj in Activesheet.OleObjects
if typeof oleObj.Object is MSForms.Combobox then
oleObj.Object.ListIndex = -1
end if
Next

--
Regards,
Tom Ogilvy

"Sebastian Axelsson" wrote in message
...
Hi

I work with an indatasheet for repeated calculations of different cases,
and most of the input data are chosen with combo boxes.

I want to have a reset button, which make the visible text in the combo
boxes returns to the original texts. I dont know the required code to
control the combo boxes..

I would be very glad for help!

/Sebastian Axelsson, sweden