Something like:

Dim v as MSForms.Commandbutton
redim v(1 to 30)
for i = 1 to 30
set v(i) = Userform1.Controls("Commandbutton" & i)
Next

--
Regards,
Tom Ogilvy


"C.F." wrote in message
...
for i = 1 to 30
userform1.Controls("CommandButton" & i).Caption = _
Range("A" & i).Value
Next i


really thanks.

i've another quick question:

if i would declare an array of command buttons how i should
do that??

again thank for your answer you've solved me a lot of
problems!