I've created a table of contents module that alternates the colors of the "buttons". Unfortunately the resulting colors are waaaay off. For instance RGB(224, 230, 205) becomes RGB(255,60,60). I see that when I right click on a "button" and go to "Show ShapeSheet". I can manually change the value there and it works.
' Alternate the foreground color
If (loopCount Mod 2 = 0) Then
TOCEntry.Cells("FillForegnd") = RGB(195, 215, 232)
Else
TOCEntry.Cells("FillForegnd") = RGB(224, 230, 205)
End If
Thanks.