Bob

Thanks for your reply. I have been unable to make it work. After
entering the name into the inputbox, I cannot get that name to appear
in the cell when I push the validation list down one. I have the
following:

Sub EnterNewBuyer()

Dim ans
ans = InputBox("New value")
Range("FR2").Select
Selection.Insert Shift:=xlDown
With ActiveCell
ans = .Validation.Formula1 & "," & ans
.Validation.Delete
.Validation.Add Type:=xlValidateList, Formula1:=ans


Range("FR2:FR34").Select
Selection.Sort Key1:=Range("FR2"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Range("B5").Select

End With
End Sub