Issue with List Array

[realdpg]

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

[MickG]

Try this:-

Sub MG24Mar35
Dim MyArray As Variant

MyArray = ThisWorkbook.Sheets("Sheet1").Range("N2:N663").value

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

Regards Mick

[Izandol]

Also remember that limit for validation list text formula is 255 characters.

[zbor]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

[realdpg]

thanks Mick & Izandol...I was not aware of the character limit.