
Private Sub CheckBox1_Change()
'se il ckbox e' con flag fa questo
If Me.CheckBox1.Value = True Then
Range("a1").Value = "pippo"
Range("A1:B1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
'altrimenti
Else
Range("A1:B1").Select
Selection.UnMerge
End If
End Sub |
