Visual Basic 6 - Aiuto Checkbox dinamici

Ciao a tutti e complimenti per il sito, mi sono appena iscritto.
Veniamo al punto: Sto creando una macro in vba che mi genera delle chkbox dinamiche, tante quante sono le celle che passano una determinata condizione.
Esempio:
Colonna A Colonna B
"ciao" chkbox1
"miao" chkbox2

Vorrei fare in modo che una volta spuntata una qualsiasi chkbox, sia possibile copiare la relativa stringa a sinistra e incollarla altrove.
Le checkbox sono collegate alle celle che le ospitano. Il problema è che non avendo a priori il nome della checkbox,non riesco a definirla per associarla alla stringa che le sta di fianco.
Se volete posto il codice .. grazie

Si forse è meglio

Questo è quanto..

Set ws = Worksheets("Foglio1")
      Set current=   Worksheets("Foglio1").Range("Z1")
    Worksheets("Foglio1").Select
    Selection.Sort Key1:=ws.Range("D1"),     Order1:=xlAscending, Header:=xlGuess, _
       OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
       DataOption1:=xlSortNormal
       i = 4
          For Each c In Worksheets("Foglio1").Range("D2:D300")
            Worksheets("Foglio1").Select
             If c <> current Then
                  c.Copy Destination:=Worksheets("Foglio2").Range("A" & i)
                  current = c
                  i = i + 1
                End If
               
             If current = 0 Then
                 Exit For
                End If
          Next c
  Set wks = Worksheets("Foglio2")
     With wks
        .OptionButtons.Delete
        .GroupBoxes.Delete
        Set myRng = .Range("C4:C" & (i - 2))
           For Each myCell In myRng.Cells
               With myCell
                 Set GrpBox = .Parent.GroupBoxes.Add(Top:=.Top, _
                       Left:=.Left, _
                       Width:=.Width, _
                       Height:=.Height)
                       GrpBox.Caption = ""
                       GrpBox.Visible = False

                 Set OptBtn = .Parent.CheckBoxes.Add(Top:=.Top, _
                 Left:=.Left, _
                 Width:=.Width / 2, _
                 Height:=.Height)
                 OptBtn.Caption = ""
                 OptBtn.LinkedCell = .Address(external:=True)
                 OptBtn.Display3DShading = True
                 .NumberFormat = ";;;"
               End With
            Next myCell
      Worksheets("Foglio2").Select
        For Each chkBox In ActiveSheet.CheckBoxes
                 chkBox.Select
                 Selection.OnAction = "Macro1"
           Next chkBox

Non è il massimo credo, ma funziona correttamente... dovrei fare l'aggiunta di cui parlo sopra, ma non so proprio da dove iniziare.
Dovrei creare una macro che si avvia ogni volta che si spunta la checkbox.. ma cosa mettere nella macro??

Nessuno può aiutarmi??