Este fórum está sendo desativado

[thiagocarloss]

Uso uma macro que cria caixas de seleção e ela funciona muito bem. Agora preciso que ao criar a caixa de seleção ela já venha "chamando" uma macro, ou seja, ao invés de clicar com o botão direito em mil caixas de seleção e atribuir a macro de ordenar para cada uma delas eu gostaria de já criar a caixa de seleção com a macro atribuída a elas.
Código para criar a caixa de seleção:

Código: Selecionar todos

'retirado de https://br.ccm.net/faq/19796-como-criar-automaticamente-caixas-vinculadas-as-celulas-abaixo-no-excel
Sub Inserer_Caixas_de_Seleção_Vinculadas()
Dim rngCel As Range
Dim ChkBx As CheckBox
For Each rngCel In Selection
  With rngCel.MergeArea.Cells
    If .Resize(1, 1).Address = rngCel.Address Then
       Set ChkBx = ActiveSheet.CheckBoxes.Add(.Left, .Top, .Width, .Height)
      With ChkBx
        .Value = xlOff
        .LinkedCell = rngCel.MergeArea.Cells.Address
        .Text = ""
        With .Border
        End With
      End With
    End If
  End With
Next rngCel
End Sub

[osvaldomp]

Código: Selecionar todos

With ChkBx
   .OnAction = "Macro1"
   ...
  ...