Not sure about 'option' but an array would work
Option Explicit
Sub test()
Dim N As Long, R As Long, G As Long, B As Long
Dim shp As Shape, shpPalette As Shape
Dim aShapesToUse As Variant
Dim i As Long
If ActiveWindow.View.Slide.Shapes("A1a").Visible = False Then
MsgBox "There is no color palette on this slide :)"
End If
Set shpPalette = ActiveWindow.View.Slide.Shapes("A1a")
With shpPalette
.Fill.ForeColor.RGB = ActiveWindow.View.Slide.Shapes.Range(shpPalette).TextFrame.TextRange.Font.Color
.TextFrame.TextRange.Font.Color.RGB = RGB(255, 255, 255)
.TextFrame.TextRange.Font.Size = 7
.TextFrame.TextRange.Font.Bold = True
End With
'------------------------------------------------------------------ use an array
aShapesToUse = Array("Title", "Title 1", "Title 2")
For i = LBound(aShapesToUse) To UBound(aShapesToUse)
Set shp = ActiveWindow.View.Slide.Shapes(aShapesToUse(i))
N = shp.TextFrame.TextRange.Font.Color
B = N \ 65536
G = (N - B * 65536) \ 256
R = N - B * 65536 - G * 256
MsgBox shp.TextFrame.TextRange.Characters.Text = "Title: " & "R:" & R & " G:" & G & " B:" & B
Next
End Sub