Dim ans
ans = InputBox("New value")
With ActiveCell
ans = .Validation.Formula1 & "," & ans
.Validation.Delete
.Validation.Add Type:=xlValidateList, Formula1:=ans
End With


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"rammieib" wrote in message
oups.com...
Hi

I cannot find this in the groups anywhere.

I would like to update a validation list, which is in cells "FR2" to
"FR26" which contains a list of names. I would like a user to be able
to click on a button which pops up with a message saying "Enter New
Buyer Name", they enter the name, click ok and then the validation list
has been updated in alphbetical order with that persons name.

Could someone help me with the coding for this pls.

Thanks in advance.

roger