Hi Guys,

can someone please tell me why there is an error in the following code, line in bold?

Dim MyArray As Variant
For Each x In ThisWorkbook.Sheets(1).Range("N2:N663")
MyArray = MyArray + x + Chr(44)
Next

With ThisWorkbook.Sheets(1).Range("N1").Validation
.Delete
.Add Type:=xlValidateList, Operator:=xlBetween, Formula1:=Join(MyArray, ",")
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

thanks
V