if column a is 22.86 wide the position of button AdjLeft needs to be say
15.25

Either of the following lines would make such an adjustment. You can decide
which one is most appropriate.

ActiveSheet.Shapes("AdjLeft").Left = ActiveSheet.Columns("A:A").Width - 7.61
ActiveSheet.Shapes("AdjLeft").Left = ActiveSheet.Columns("A:A").Width * 0.667


Regards,
Vic Eldridge


"Karoo News" wrote:

Hi I need a code that moves a command button named AdjLeft, I cannot use
increment as the position depends on the width of column a A.

EG: if column a is 22.86 wide the position of button AdjLeft needs to be say
15.25

I have tried various ways but nothing works!!!

Many thanks in advance
Neil