Свойство назначения «Рецензент» SharePoint - Excel VBA

Question

Я пытаюсь написать макрос для назначения свойства «Reviewer» в файле Excel в SharePoint 2013 через электронную таблицу.Я сталкиваюсь с ошибкой несоответствия типов при выполнении назначения в SharePoint.Я немного смущен тем, почему, поскольку я делал подобные вещи раньше с другими свойствами SharePoint.Я получил его для работы с "Обзор завершен?"свойство, но не свойство "Reviewer".Спасибо!

Sub Assign_SP_Review_Files_Unique()

Dim cell As Range

Dim FilePath As String

Dim DisplayName As String

Dim wbkSource As Workbook

Application.ScreenUpdating = False

Application.DisplayAlerts = False

ThisWorkbook.Activate

For Each cell In Range("A2", Range("A1").End(xlDown))

    FilePath = cell.Value

    DisplayName = cell.Offset(0, 1).Value

    Set wbkSource = Workbooks.Open(filename:=FilePath, ReadOnly:=False, Notify:=False)

    wbkSource.ContentTypeProperties("Reviewer").Value = DisplayName

    wbkSource.Close saveChanges:=True

Next cell

Application.DisplayAlerts = True

Application.ScreenUpdating = True

MsgBox "Task Complete"

End Sub