How I can update the list of items available in a drop-down based on
selection of a value from another drop-down? (e.g. Selecting a country name
from drop-down to update the list of states / cities available in other
drop-down)

Thanks in advance.

Nadeem Rauf

Sub List1_Change()
    SubToUpdate List1.value
End sub

Sub SubToUpdate(Country)
    ClearPreviousList
    Select Case Country
        Case "US"
            List2.Add "State1"
            List2.add "state2"
            ...
        Case "..."
    End Select
End sub

Sub ClearPreviousList()
        If List2.ListCount >= 1 Then
            For Each mm In List2.List
                If Me.Animations.ListCount = 0 Then Exit For
                Me.Animations.RemoveItem (Me.Animations.ListCount - 1)
            Next mm
        End If
End sub