Это довольно легко сделать. Самый простой способ, который я нашел, это использовать следующий код:
Option Explicit
Dim ColorDetail As Boolean
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If ColorDetail Then
Detail.BackColor = 16777215
Else
Detail.BackColor = 13290186
End If
ColorDetail = Not (ColorDetail)
End Sub