Con esta macro conseguiras insertar casillas de verificación masivas,
Selecciona el rango donde quieres insertarlas y simplemente le das a la macro, veras que sencillo.
Código de la macro
Sub InsertarCheckBoxes()
Dim Celda As Range
Dim Ancho As Double
Dim Alto As Double
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each Celda In Selection
Ancho = Celda.Width
If Celda.Height >= 17 Then
Alto = Celda.Height
Else
Alto = (Celda.Height – 17) / 2
End If
ActiveSheet.CheckBoxes.Add(Celda.Left, Celda.Top, Ancho, Alto).Select
With Selection
.Caption = «»
.LinkedCell = Celda.Address
.Display3DShading = True
End With
Celda.Value = False
Celda.Font.Color = vbWhite
Next Celda
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Range(«a1»).Select
End Sub
Como copiar y pegar el código
Como insertar una macro en la cinta de opciones personalizada