Error with simple code - changing text box formats

[cjcass]

The following code doesn't work, can anyone tell me why and let me know what code would work. The code errors at the line '.TextFrame.Characters.Font.Color = RGB(Colors(0), Colors(1), Colors(2))'
Many thanks.

Dim R As Long, G As Long, B As Long, Colors As Variant
    
    Sheet97.Select
    
    Colors = Split(Range("Z93"), ",")
    With ActiveSheet.Shapes.Range(Array("TextBoxNeg5.5", "TextBoxNeg3.5"))
        .TextEffect.FontSize = Range("W93").Value
        .TextFrame.Characters.Font.Color = RGB(Colors(0), Colors(1), Colors(2))
        .TextFrame.AutoSize = True
    End With

 

[NateSC]

The arguments in the RGB function have to be integers. Try:

        .TextFrame.Characters.Font.Color = RGB(Int(Colors(0)), Int(Colors(1)), Int(Colors(2)))

 

[cjcass]

The arguments in the RGB function have to be integers. Try:

        .TextFrame.Characters.Font.Color = RGB(Int(Colors(0)), Int(Colors(1)), Int(Colors(2)))

Many thanks for your response.
Still getting an error on this line using your code unfortunately. The original code works fine when it's only referring to one Text Box, ie. With ActiveSheet.Shapes("TextBoxNeg5.5"), it's only a problem when I change the code to several Text Boxes, if this helps.

 

[NateSC]

So, when you put the 2 shapes in the array, the TextFrame property doesn't seem to work. To prove this, I commented out the Font.Color line and the AutoSize line gave the same error. If you "select" the 2 frames, your code for those 2 lines will work. However, you can't use the Text Effect on the "Selection". Someone smarter than me (shouldn't be hard to find) probably understands this and how to work around it, but the below appears to work for me.

    With ActiveSheet.Shapes.Range(Array("TextBoxNeg5.5", "TextBoxNeg3.5")))
        .TextEffect.FontSize = 15
        .Select
    End With
    Selection.Font.Color = RGB(Colors(0), Colors(1), Colors(2))
    Selection.AutoSize = True

    Range("A1").Select

 

[cjcass]

So, when you put the 2 shapes in the array, the TextFrame property doesn't seem to work. To prove this, I commented out the Font.Color line and the AutoSize line gave the same error. If you "select" the 2 frames, your code for those 2 lines will work. However, you can't use the Text Effect on the "Selection". Someone smarter than me (shouldn't be hard to find) probably understands this and how to work around it, but the below appears to work for me.

    With ActiveSheet.Shapes.Range(Array("TextBoxNeg5.5", "TextBoxNeg3.5")))
        .TextEffect.FontSize = 15
        .Select
    End With
    Selection.Font.Color = RGB(Colors(0), Colors(1), Colors(2))
    Selection.AutoSize = True

    Range("A1").Select

Brilliant! That does the job, spot on.
Thank you very much for your time on this, much appreciated.