Crear un Checkbox en una Macro

"Lucy" schreef in bericht
news:
Hola, tengo un problema al querer que me muestre un checkbox por medio
de una macro, no sé si no lo estoy definiendo bien o que es lo q me
falta, me podrían ayudar por favor??? mi código es el siguiente:

Public Sub Menu()
With Assistant.NewBalloon
.Heading = "Tablas de Parametros"
.Text = "Selecciona las txt a crear"
For i = 1 To 3
.CheckBoxes(i).Text = "Tabla " & i
Next
.Button = msoButtonSetOkCancel
.Mode = msoModeModeless
.Show
If .CheckBoxes(1).Checked Then
MsgBox "Se crea tbl1 "
CreaTBL
End If
If .CheckBoxes(2).Checked Then
MsgBox "Se crea tbl2"
CreaTBL
End If
If .CheckBoxes(3).Checked Then
MsgBox "Se crea tbl3"
CreaTBL
End If
End With

muchas gracias,
saludos



Public Sub Menu()
Dim myBalloon As Balloon
Dim i, x As Integer
Dim y As Object
Set myBalloon = Assistant.NewBalloon
With myBalloon
.Heading = "Regional Sales Data"
.Text = "Select your region"
.Button = msoButtonSetOkCancel
For i = 1 To 3
.CheckBoxes(i).Text = "Tabla " & i
Next
x = .Show
i = 0
Select Case x
Case -1 'Ok
For Each y In .CheckBoxes
i = i + 1
If y.Checked Then
Select Case i
Case 1
MsgBox "Se crea tbl1"
CreaTBL 1
Case 2
MsgBox "Se crea tbl2"
CreaTBL 2
Case 3
MsgBox "Se crea tbl3"
CreaTBL 3
End Select
End If
Next
Case -2 'Cancel.
MsgBox "You clicked Cancel."
End Select
End With
Set y = Nothing
Set myBalloon = Nothing
End Sub


Private Sub CreaTBL(iTabla As Integer)
MsgBox iTabla
End Sub