Userfom - Checkbox

Lukael

New member
Joined
Feb 9, 2014
Messages
21
Reaction score
0
Points
0
Hello, I want to make this code working on my Userform1, which has checkbox in It. Userform1 is activated with macro1(Userform1.Show) on worksheet (button). Code works great wih no Userfom :


Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim blnValue As Boolean
Dim shpCB As Shape
If Target.Count = 1 Then
  If Not Intersect(Target, Range("C4,C6")) Is Nothing Then
    blnValue = WorksheetFunction.CountA(Range("C4,C6")) = 2
    For Each shpCB In ActiveSheet.Shapes
      If shpCB.Name Like "Check*" Then
        shpCB.ControlFormat.Value = blnValue * -1
      End If
    Next shpCB
  End If
End If
End Sub
 
Back
Top