Thanks
I did use Data Validation. I call a method called GetVendors which retrieves from an XML and returns a string
I am adding a list which contains values of the string returned from the xml (refer 5th line)
and then making the list as dropdown (refer 6th line).
On Error Resume Next
Dim R As Range: Set R = Range(ActiveCell.Address)
Dim strList As String: strList = GetVendors
With R.Validation
.Add xlValidateList, xlValidAlertStop, xlBetween, strList
.InCellDropdown = True
End With
Thanks again
Bookmarks