teCol) Then
               .CellDetails lRow, lCol, DateSerial(Year(Now) + Rnd * 8 - 1, Rnd
                * 12, Rnd * 31)
            ElseIf (lCol = lCol5) Then
               ' Icons + text
               If (lRow Mod 2) = 0 Then
                  lIndent = 24
               Else
                  lIndent = 0
               End If
               .CellDetails lRow, lCol, "This is a longer piece of text which
                can wrap onto a second line if the default cell format is
                changed 