I have the following code copied from a previous response which is
exactly the solution I need; however, I got the run time error of
"unable to set the ListIndex property of the DropDown class" Could
anyone provide help? Thanks in advance.

Option Explicit
Sub ddMstr()

Dim dd As DropDown
Dim dd1 As DropDown

Set dd = ActiveSheet.DropDowns(Application.Caller)

With dd
If .ListIndex 0 Then
MsgBox Range(.ListFillRange)(.ListIndex)
Set dd1 = ActiveSheet.DropDowns("drop down 2")
dd1.ListIndex = 0
dd1.ListFillRange = Worksheets("MyChoices").Range("list" _
& dd.ListIndex).Address(external:=True)
End If
End With
End Sub


Sub ddSub()
Dim dd As DropDown
Set dd = ActiveSheet.DropDowns(Application.Caller)

With dd
If .ListIndex 0 Then
MsgBox Range(.ListFillRange)(.ListIndex)
End If
End With
End Sub