CANNOT PLACE BUTTON IN SPECIFIED LOCATION

[DeanP]

I am running a macro that places an option button in my worksheet. However, I cannot place it in the location I want. When running the macro the button is placed wherever the cursor is.

I tried the running the macro using:

Sub ShowPerBox()
    Dim rng As Range
    Set rng = ActiveSheet.Range("L18")
    With ActiveSheet.OptionButtons.Add(Selection.Left, Selection.Top, Selection.Width, Selection.Height)
        .Name = "OptionButton1"
        .Caption = "CONFIRM"
    End With
  
End Sub

Am I missing something?

[Fluff]

Try

Sub ShowPerBox()
    Dim rng As Range
    Set rng = ActiveSheet.Range("L18")
    With ActiveSheet.OptionButtons.Add(rng.Left, rng.Top, rng.Width, rng.Height)
        .Name = "OptionButton1"
        .Caption = "CONFIRM"
    End With
  
End Sub

[Stohan]

Hi there

With ActiveSheet.OptionButtons.Add(Selection.Left, Selection.Top, Selection.Width, Selection.Height)

Selection here means that button will place in the area which is selected, if you select amount of cells it will cover them. Or if not, it will be placed in the area of the cursor.

To make it way you want replace it with for example (30,30,30,30) , it will place button in the area of 3 cells with width and height of 2 cells. (default cells 15x15)

Best of luck!

[DeanP]

Thank you both!!

How can I change the font of the button to:

Source Sans Pro - Size 14 - Bold

[Fluff]

Not sure that you can

[Stohan]

For just button there is not that property, but you can use ActiveX command button and useCommandButton1.BackColor = 12713921.