Как зациклить несколько текстовых полей, чтобы установить прозрачность

Question

Я пытаюсь установить уровни прозрачности 60% для нескольких текстовых полей с помощью VBA.Я использую следующий код для зацикливания TextBox 100 - 149, при выполнении я сталкиваюсь с ошибкой во время выполнения The item with the specified name was not found Как я могу решить?

Sub set_Transparency()
Dim x As Integer
For x = 100 To 149
With Sheet5.Shapes("TextBox" & x)
    With .TextFrame2.TextRange.Characters
        With .Font.Fill
.ForeColor.RGB = RGB(255, 255, 255)
.Transparency = 0
    End With
        End With
End With
    Next x
End Sub

Answer 1

Sub set_Transparency()
Dim x As Integer
For x = 100 To 149
With Sheet5.Shapes("TextBox " & x)
    With .TextFrame2.TextRange.Characters
        With .Font.Fill
          .ForeColor.RGB = RGB(255, 255, 255)
          .Transparency = 0
        End With
    End With
End With
    Next x
End Sub