Checkbox triggering data validation failed

[lynnsong986]

Hello,

I have a checkbox that controls whether or not a bunch of cells should have data validation applied. there is a workbook.open event that applies data validation to J18:N23 upon open
Worksheets("Model").Range("J18:N23").Validation.Delete didn't work. when I checked the box, the validation still exists in those cells. can someone please let me know how to make it work?

Private Sub Revenue_Click()
Dim sh As Worksheet

Set sh = Worksheets("Scenarios")
If Revenue.Value = True Then sh.Range("B12") = "Revenue"
[FONT=Arial Black]Worksheets("Model").Range("J18:N23").Validation.Delete[/FONT]
If Revenue.Value = False Then sh.Range("B12") = ""
Worksheets("Model").Range("J18:N23").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Formula1:="% Growth from Prev. Year,Source Company,Scenario"
End Sub 

thanks so much

[AlphaFrog]

I'm not sure I follow what you are describing. Your code deletes validation (blue) and then adds it back (red).

Please Login or Register  to view this content.

'

[lynnsong986]

What I was trying to do is that if the checkbox is checked, which returns "True", then remove the validation from those cells; if the checkbox is unchecked, which returns "False", then add the validations. I guess I must have some logic errors in this so it didn't work. I hope I made it clear? I rarely use these controls, so please help!

Thanks so much for your time!

[AlphaFrog]

Please Login or Register  to view this content.

[lynnsong986]

OMG, thank you so so so so so much!!! AlphaFrog you saved my day!! I'm been scratching my head for the last hour, now I can go enjoy my weekend!! thanks you are awesome!!