Pin Command Button to Cell

[Rocksie]

Hi All,

I have the following code to pin a command button to a specific cell. My question is how to modify this code to pin different command buttons to different cells. The code is written in the workbook activate module, so that when I open the workbook the buttons are in the correct places.

Dim rng As Range
Set rng = ActiveSheet.Range("B3")
With ActiveSheet.OLEObjects("CommandButton1")
.Top = rng.Top
.Left = rng.Left
.Width = rng.Width
.Height = rng.RowHeight
End With


Thanks for your advice

 

[My Aswer Is This]

Like this:

Private Sub Worksheet_Activate()
Dim rng As Range
With ActiveSheet.OLEObjects("CommandButton1")
Set rng = ActiveSheet.Range("B3")
.Top = rng.Top
.Left = rng.Left
.Width = rng.Width
.Height = rng.RowHeight
End With

With ActiveSheet.OLEObjects("CommandButton2")
Set rng = ActiveSheet.Range("J3")
.Top = rng.Top
.Left = rng.Left
.Width = rng.Width
.Height = rng.RowHeight
End With
End Sub

 

[Rocksie]

Ok, so I have to do all 30 command buttons separately.... I thought there could be an easier and quicker way...

 

[My Aswer Is This]

Ok, so I have to do all 30 command buttons separately.... I thought there could be an easier and quicker way...

You did not say you had 30.

Give me some relationship to work with.

For example button 1 to B1
Button 2 to B2
Button 3 to B3

etc.

Tell me more about what your doing.
Maybe I can provide another way without needing 30 command buttons.
Which will require 30 different scripts