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

CommandButton3.Caption = ""
CommandButton5.Caption = ""
CommandButton6.Caption = ""
CommandButton7.Caption = ""
CommandButton8.Caption = ""
CommandButton9.Caption = ""
CommandButton10.Caption = ""
'
'

and for captions:

CommandButton3.Caption = [B10] & " " & [D10]
CommandButton5.Caption = [B11] & " " & [D11]
CommandButton6.Caption = [B12] & " " & [D12]
CommandButton7.Caption = [B13] & " " & [D13]
CommandButton8.Caption = [B14] & " " & [D14]
CommandButton9.Caption = [B15] & " " & [D15]
CommandButton10.Caption = [B16] & " " & [D16]
CommandButton11.Caption = [B17] & " " & [D17]
CommandButton12.Caption = [B18] & " " & [D18]
CommandButton13.Caption = [B19] & " " & [D19]
CommandButton14.Caption = [B20] & " " & [D20]
CommandButton15.Caption = [B21] & " " & [D21]
'
'

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.

Private Sub Workbook_Open()
With Sheet1
For x = 1 To 11 Step 2
.OLEObjects("CommandButton" & x).Object.Caption = .Cells(x, 7) & " " & .Cells(x, 8)
Next x
End With
End Sub

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

.OLEObjects("CommandButton" & x).Object.Caption = .Cells(x, 2) & " " & .Cells(x, 4)

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.