' Сформированный словарь выгружаем в строку, разделители - запятые
  For Each key In objDict.Keys
    strList = strList & "," & CStr(key)
  Next
  
  ' отрезаем лишнюю запятую в начале
  
  strList = Mid(strList, 2)

  ' присваиваем ячейке список через механизм Data Validation
  With parTargetCell.Validation
    .Delete
    .Add Type:=xlValidateList, _
         AlertStyle:=xlValidAlertWarning, _
         Formula1:=strList
    .IgnoreBlank = True
    .InCellDropdown = True
  End With
  
  ' Уничтожаем объект словаря
  Set objDict = Nothing
  
End Sub