The specified value is out of range - vba

Question

I am trying to write some code that returns in the Immediate Window the slide number of every slide that contains at least one Text Box with a red font, but the following error keeps popping up. Do you have ideas on how I can solve the problem?
Below the error I get:
Run-time error'-2147024809(80070057)
The specified value is out of range.
The line that causes it is:
ElseIf shp.TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0) Then
This is the full code of the Subroutine:
Sub redfont()
Dim sld As Slide
Dim shp As Shape
Dim x As Byte
Dim z, i
With ActivePresentation
z = .Slides(.Slides.Count).SlideNumber
MsgBox z, vbDefaultButton1, "Total Slides"
End With
Dim myCol As Collection
Set myCol = New Collection
For i = 2 To z
Set sld = ActivePresentation.Slides(i)
For Each shp In sld.Shapes
If x = 1 Then
x = 1
ElseIf shp.TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0) Then
myCol.Add CStr(i), CStr(i)
x = 1
End If
Next shp
x = 0
Next
Dim j As Long
For j = 1 To myCol.Count
Debug.Print myCol.Item(j)
Next j
End Sub

Answer 1

Since not all Shapes have a TextFrame, you need to check first whether your shape has one or not before trying to access it.
Use the .HasTextFrame property for that purpose.
The general pattern is:
If shp.HasTextFrame Then
'Access shp.TextFrame inside here
'For example:
shp.TextFrame.TextRange.Text = "New Text"
End If
In your specific case the correct code would look like this:
For i = 2 To z
Set sld = ActivePresentation.Slides(i)
For Each shp In sld.Shapes
If shp.HasTextFrame Then
If shp.TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0) Then
myCol.Add CStr(i), CStr(i)
Exit For
End If
End If
Next
Next
BTW: you don't need the x variable, just exit the loop when the first condition is met.