Cells value -> Caption CommandButtons

Hi,
In Sheet1, many ActiveX Control CommandButtons are living in Column "L".
When I import some data, I'd like to have the captions of the CommandButtons the cells value where they are.
What I use now is:
for clear contents

Please Login or Register  to view this content.

and for captions:

Please Login or Register  to view this content.

Is there any way to have the same resulrt reducing this amount of lines?

Thank you for your support!
Cheers

as you have not uploaded your workbook i have put a simple looping demo in the workbook_open event of the attached file.

Please Login or Register  to view this content.

Hi torachan,
Thank you!
it's highlighted in yellow the below line

Please Login or Register  to view this content.

Strange ! , upload the file that gives the fault.

Hi,
I am sorry the my late response!
Well, my fault! Your solution is working like a charm!

Thanks a lot for your support!
Cheers G

thanks for the feedback and added rep point - glad to have helped.