I have below code which is create a data validation for a range but whenever i add this code in the workbook.
Received this error
"we found a problem with some content" while opening the workbook but when i remove this from workbook then it works fine.
Can someone please look into this that what is the issue with the code.
Dim list1 As Range Application.EnableEvents = False Dim validationFormula As String Set list1 = Sheet3.Range("A1:A100") Dim myCell As Range For Each myCell In list1 If Not IsEmpty(myCell) Then validationFormula = validationFormula & myCell.Value2 & "," End If Next validationFormula = validationFormula & Chr(160) With Sheet1.Range("C4:C2000").Validation .Delete .Add Type:=xlValidateList, Operator:=xlBetween, Formula1:=validationFormula .IgnoreBlank = False .InCellDropdown = True end with