Переименование пользовательских стилей в Excel с VBA

Question

У меня есть несколько стилей шаблонов с общим префиксом c, используемым в их соглашении об именах, например, "My_Input", "My_Calculation" и т. Д. c

Я пытаюсь написать некоторый код VBA для изменения префикса используется для этого соглашения об именах, чтобы адаптировать стили к индивидуальному проекту, например, для проекта AB C. Я хотел бы иметь возможность переименовывать стили как «ABC_Input», «ABC_Calculation».

Следующий код Это моя попытка, но она вызывает ошибку компиляции, в которой говорится следующее: «Неверное количество аргументов или неправильное присвоение свойства». Это связано с тем, что невозможно переназначить это свойство или я просто что-то упустил?

Sub RenameStyles()
   Dim iStyleCount As Integer
   Dim strStyleName, strNewPrefix, strOldPrefix As String

   strNewPrefix = InputBox("Enter the desired style prefix")
   strOldPrefix = InputBox("Enter the current style prefix")

   For iStyleCount = 1 To ActiveWorkbook.Styles.Count
      If ActiveWorkbook.Styles(iStyleCount).Name Like strOldPrefix & "*" Then
         strStyleName = ActiveWorkbook.Styles(iStyleCount).Name
         ActiveWorkbook.Styles(iStyleCount).Name = strNewPrefix & Right(strStyleName, Len(strStyleName) - Len(strOldPrefix)) 'THIS LINE CAUSES THE ERROR
      End If
   Next iStyleCount
End Sub

Приветствия