CellFont(lRow, lCol) = sFnt2
            ElseIf (lRow Mod 35) = 0 Then
               If (lCol = 4) Then
                  .CellBackColor(lRow, lCol) = &amp;HCC9966
               Else
                  .CellBackColor(lRow, lCol) = &amp;HEECC99
               End If
            ElseIf (lRow Mod 10) = 0 Then
               .CellForeColor(lRow, lCol) = &amp;HFF&amp;
            End If

         Next lCol
         If (lRow Mod 50) = 0 Then
            Value = Value + 50
            Status = lRow &amp; " of " &