• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

How to program the after no selection?

RDAngelo

New Member
Code:
Sub test()
    With Cells(3, 5).Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:="=$A$2:$A$3"
    End With
    With Cells(6, 5).Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:="=$C$2:$C$6"
    End With
End Sub
 
Top