Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim chbx
- Set chbx = ActiveSheet.CheckBoxes.Add(240, 15, 144, 15.75)
- chbx.Characters.Text = "DisplacementPicturesIns"
- chbx.OnAction = "DisplacementPicturesIns"
- If chbx.Value = True Then
- chbx.OnAction = True
- Elseif chbx.Value = False Then
- ....
- End If
Add Comment
Please, Sign In to add comment