I'm not entirely sure how you want to implement this, but the VBA statements
needed to copy the Validation List and Validation Properties from B1 to B2
would be this...

With Range("B2").Validation
.Delete
.Add Type:=xlValidateList, _
Formula1:=Range("B1").Validation.Formula1, _
AlertStyle:=Range("B1").Validation.AlertStyle
.ErrorTitle = Range("B1").Validation.ErrorTitle
.ErrorMessage = Range("B1").Validation.ErrorMessage
End With

Rick


"Suzanne" wrote in message
...
I have a spreadsheet with data validation drop-downs; the spreadsheet may
have 2 names or may have 200 names.

Need some help with code:

Where A1 = Name; B1 has validation dropdown

B2: If B1 < "" (if there is a name) then copy A1 validation dropdown to
B2

Thanks -- Suzanne