Создание выпадающего списка значений

В некоторых отчетных формах, которые предполагают дальнейший анализ данных пользователем требуется создание выпадающих списков определенных значений (комментариев). Использование таких списков удобно для стандартизации работы,  а также для подсказок вариантов неопытным пользователям.
Рассмотрим код формирования такого списка из макроса Не привязанные позиции:

Sub SetValidationRange
Dim oRange
Dim oValidation 'Объект проверки
 'Диапазон, который допускает проверку, конечную ячейку можно устанавливать произвольно
' далеко - так чтобы не зная размеров диапазона выпадающие комментарии не закончились
oRange = ThisComponent.Sheets(0).getCellRangeByName("D3:D10000")
'Получим объект проверки
oValidation = oRange.Validation
'Настроим проверку для выполнения
oValidation.Type = com.sun.star.sheet.ValidationType.LIST
oValidation.setOperator(com.sun.star.sheet.ConditionOperator.BETWEEN)
oValidation.setFormula1(""& Chr(34) &"Ошибочное перемещение позиции не по акту заборки"& Chr(34) &";" & Chr(34) & "Неверное МХ в операции внутреннего перемещения"& Chr(34) & ";" & Chr(34) &"Ошибка при заведении операции инвентаризации"& Chr(34) &";"& Chr(34) &"Новое сырье, отправлен запрос на привязку"& Chr(34) &";"& Chr(34) &"Сырье, не используемое в производстве"& Chr(34) &";"& Chr(34) &"Нарушение привязки позиции к рецептам в БД, отправлен запрос на исправление"& Chr(34) &";"& Chr(34) &"Ошибка при заведении операции списания утиля"& Chr(34) &";"& Chr(34) &"Другое"& Chr(34) &"")
' Параметр setFormula2  является по сути последним комментарием, Если вы указали все
' ранее - оставьте это поле пустым
oValidation.setFormula2("Иная причина")
'Теперь установим проверку
oRange.Validation = oValidation
End Sub

Задача: разработайте и запрограммируйте выпадающий список значения для файла Продажи без рецептов