This is pretty easy to do. The easiest way I found for this is to use the following code:
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
source share