Dynamiske togglebuttons

Nu har jeg fundet noget, men jeg kan ikke få linked cell til at virke - nogen der kan forklare mig hvorfor? Det fungerer i hvert fald ikke som med checkboxen. Men jeg kan godt manuelt lave linkedcell bagefter (desværre bare ikke optage det i makro) :(

Sub tgbtn()

Dim RngTgnBtn

    Set RngLink = Range("F2")
    Set RngTgnBtn = Range("E8:F9")
        ActiveSheet.OLEObjects.Add("Forms.ToggleButton.1", , , , , , , RngTgnBtn.Left, RngTgnBtn.Top, RngTgnBtn.Width, RngTgnBtn.Height).Select
        'With Selection
            '.LinkedCell = RngLink.Address
            '.Characters.Text = "Test"
            '.OnAction = "msg"
        'End With

End Sub

Nu har jeg fået lavet linkedcell, men jeg kan stadig ikke få OnAction til at virke - er der nogen der har en idé til hvordan?

Sub test()

Dim i As Integer

For i = 1 To 6
   
    If i Mod 2 = 0 Then
        Range("A1").Cells(i, 1) = Rnd
    Else: Range("A1").Cells(i, 1) = -1 * Rnd
    End If
   
    Call AddToggle(i)
Next i

End Sub

Sub AddToggle(i As Integer)

Dim RngTgBtn As Range
Dim Str As String

    If Left(ActiveSheet.Cells(i, 1), 1) = "-" Then
        Str = Left(ActiveSheet.Cells(i, 1), 5)
    Else: Str = Left(ActiveSheet.Cells(i, 1), 4)
    End If

    Set RngTgBtn = Range("A1").Cells(4, 3 + i)
    RngTgBtn.RowHeight = 16.5

    With ActiveSheet
        .OLEObjects.Add(ClassType:="Forms.ToggleButton.1").Select
            With Selection
                .Left = RngTgBtn.Left
                .Top = RngTgBtn.Top
                .Width = RngTgBtn.Width
                .Height = RngTgBtn.Height
                .Name = "myTglBtn" & i
            End With
            With Selection.Object
                .Caption = Str
                .Font.Size = 7
                .Font.Bold = True
                .Value = True
            End With
        .Shapes("myTglBtn" & i).OLEFormat.Object.LinkedCell = "'" & ActiveSheet.Name & "'!" & Range("A1").Cells(1, 3 + i).Address
        .Shapes("myTglBtn" & i).OLEFormat.Object.OnAction = ThisWorkbook.Name & "!" & "Working.msg1"
    End With
   
End Sub

Sub msg1()

    MsgBox "Working", vbInformation

End Sub

Kan ikke huske problemstillingen længere - fik det løst dog.