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