Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Value = "X"
Cancel = True
End Sub
ADVERTISEMENT
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("Check"), Target) Is Nothing Then
Exit Sub
End If
If Target.Value = "X" Then
Target.Value = ""
Else
Target.Value = "X"
End If
Cancel = True
End Sub
ADVERTISEMENT
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("Check"), Target) Is Nothing Then
Exit Sub
End If
If Target.Value = "X" Then
Columns(Target.Column).Value = ""
Else
Columns(Target.Column).Value = "X"
End If
Cancel = True
end sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("Check"), Target) Is Nothing Then
Exit Sub
End If
If Target.Value = "X" Then
Target.Value = ""
Intersect(Rows(Range("check_rows").Row & ":" & Range("check_rows").Row + Range("check_rows").Rows.Count - 1), Columns(Target.Column)).Value = ""
Else
Target.Value = "X"
Intersect(Rows(Range("check_rows").Row & ":" & Range("check_rows").Row + Range("check_rows").Rows.Count - 1), Columns(Target.Column)).Value = "X"
End If
Cancel = True
End Sub