VBA Code to Create a Data Validation Drop-down List in Excel

VBA Code:

Sub CreateDropDownList()
    Dim rng As Range
    Dim validationRange As Range
    Dim validationFormula As String
    
    ' Set the range where the drop-down list will be created
    Set rng = Range("A1:A10") ' Change the range as desired
    
    ' Set the range of values for the drop-down list
    Set validationRange = Worksheets("Data Sheet").Range("B1:B5") ' Change the sheet name and range as desired
    
    ' Set the validation formula for the drop-down list
    validationFormula = "=" & validationRange.Address
    
    ' Apply the data validation to the range
    With rng.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=validationFormula
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
End Sub

Check All VBA Codes

Join Our Telegram Group

Join Our WhatsApp Group

Nazim Khan — Founder & Editor, TechGuruPlus.com
[MBA in Finance]

Nazim Khan has spent over ten years working with Excel, Tally and office documentation in accounts, finance and MIS roles. He has been running TechGuruPlus.com since 2016, where he publishes free editable templates for office work, and the YouTube channel Business Excel. He has trained more than 50,000 people online. Every template on this site is built and checked by him before it is published.

Contact · Excel Course

Leave a Comment Cancel reply