Loop through add buttons across columns

[288enzo]

I've come up with what I think is getting me close.

Dim i As Long, rng As Range

    Set rng = Range("E3")
    
    For i = 1 To 12

ActiveSheet.Buttons.Add(Range("E3").Left, Range("E3").Top, Range("E3").Width, Range("E3").Height).Select
Selection.OnAction = "Hide"
Selection.Characters.Text = "Hide"

    Next i

If I was trying to add text I know to use rng.offset, but I don't know how to incorporate rng.offset in the code above. Am I close?

In the end, I want a button in each cell E3:P3

 

[288enzo]

Tried this as well

ActiveSheet.Buttons.Add(Range.Offset(0, i - 1)).Left,(Range.Offset(0, i - 1)).Top,(Range.Offset(0, i - 1)).Width,(Range.Offset(0, i - 1)).Height.Select

and

ActiveSheet.Buttons.Add(Range(rng.Offset(0, i - 1)).Left, Range(rng.Offset(0, i - 1)).Top, Range(rng.Offset(0, i - 1)).Width, Range(rng.Offset(0, i - 1)).Height).Select

 

[288enzo]

I knew it was only a matter of time
Bingo!

ActiveSheet.Buttons.Add(rng.Offset(0, i - 1).Left, rng.Offset(0, i - 1).Top, rng.Offset(0, i - 1).Width, rng.Offset(0, i - 1).Height).Select

 

[johnnyL]

Sub test()
'
    Dim i As Long
'
    For i = 1 To 12
        ActiveSheet.Buttons.Add(Range("E3").Offset(0, i - 1).Left, Range("E3").Offset(0, i - 1).Top, Range("E3").Offset(0, i - 1).Width, Range("E3").Offset(0, i - 1).Height).Select
        Selection.OnAction = "Hide"
        Selection.Characters.Text = "Hide"
    Next i
End Sub

 

[288enzo]

Sub test()
'
    Dim i As Long
'
    For i = 1 To 12
        ActiveSheet.Buttons.Add(Range("E3").Offset(0, i - 1).Left, Range("E3").Offset(0, i - 1).Top, Range("E3").Offset(0, i - 1).Width, Range("E3").Offset(0, i - 1).Height).Select
        Selection.OnAction = "Hide"
        Selection.Characters.Text = "Hide"
    Next i
End Sub

Thanks for responding, I see that is another option. It always surprises me how many ways there is to accomplish the same thing.

 

[johnnyL]

Thanks for responding, I see that is another option. It always surprises me how many ways there is to accomplish the same thing.

Often there is many ways to accomplish same goal. Thanks for responding!