Excel + Outlook. Ошибка в генерации письма - VB

Формулировка задачи:

Добрый день, товарищи. Вот и чукча стал писателем :-)
Столкнулся с совершенно непонятным для себя. Маленькая преамбула:
Была написана некая надстройка для Excel, которая размещает 2 кнопки в ленту сверху. Кнопки в свою очередь генерируют 2 письма, которые заполняются и выводятся на экран. Все работает, все прекрасно. Надстройка с шаблоном письма лежит в сетевой папке, сама надстройка установлена интересующимся пользователям.
А вот теперь суть: появилось несколько новых пользователей, у которых не заполняется шапка письма (т.е. адресат (.To), тема (.Subject) остаются пустные), хотя если расставить брэйкпоинты - сама информация о теме и адресате есть. А тело письма заполняется.
Иными словами надстройка одна и таже, шаблон письма один и тот же, разные только компьютеры. На большинстве работает все, на некоторых только замена в теле письма.
Прошу толкнуть на путь истинный, т.к. я что-то даже не знаю куда посмотреть. На всякий случай кусок некрасивого кода прилагаю.

Set OL_ItemMail = OL_App.CreateItemFromTemplate("Z:\Mail_generator\System\msg_1.msg")
  With OL_ItemMail
    
  If Not IsNull(Cells(ra.Row, 48)) Then
    .To = Cells(ra.Row, 48)
  Else: .To = "---"
  End If
  
  If Not IsNull(Cells(ra.Row, 52)) Then
    .Subject = Cells(ra.Row, 52)
  Else: .Subject = "---"
  End If
  
  If Not IsNull(Cells(ra.Row, 3)) Then
    .HTMLBody = Replace(.HTMLBody, "BOX1", Cells(ra.Row, 3))
  Else
    .HTMLBody = Replace(.HTMLBody, "BOX1", "")
  End If

On Error GoTo label11
  GoTo label21
label11:
  ActiveCell.Value = "ERROR"
  .Save
label21:
  .Display
  ActiveCell.Value = "Сгенерировано письмо 1"

Решение задачи: «Excel + Outlook. Ошибка в генерации письма»

textual
                            Листинг программы 
                        
                            Sub Test()
  
  ' Очистим ячейку
  Cells(1, 1).ClearContents
  Debug.Print IsNull(Cells(1, 1)) ' False
  
  ' Запишем что-нибудь в ячейку
  Cells(1, 1).Value = "dred_fk@sql.ru"
  Debug.Print IsNull(Cells(1, 1)) ' False
  
End Sub