Conditional Formatting using a formula written in vba causes splash screen not to work

[piguy]

If I use the "colorfunction" vba in my conditional formatting of certain cells, the splash screen at the beginning of opening my workbook no longer functions. It's also messing up some of my other macros.

Not sure why this changes it all. If I take the Conditional formatting out of the cells, everything goes back to normal.

Here's the color function

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
    Dim rCell As Range
    Dim lCol As Long
    Dim vResult
 
     ''''''''''''''''''''''''''''''''''''''
     'Written by Ozgrid Business Applications
     'www.ozgrid.com
 
     'Sums or counts cells based on a specified fill color.
     '''''''''''''''''''''''''''''''''''''''
 
    lCol = rColor.Interior.ColorIndex
 
    If SUM = True Then
        For Each rCell In rRange
            If rCell.Interior.ColorIndex = lCol Then
                vResult = WorksheetFunction.SUM(rCell, vResult)
            End If
        Next rCell
    Else
        For Each rCell In rRange
            If rCell.Interior.ColorIndex = lCol Then
                vResult = 1 + vResult
            End If
        Next rCell
    End If
 
    ColorFunction = vResult
    Application.Volatile
End Function

Here's the conditional formatting

=AND(ColorFunction($AE$3,I2,FALSE),A3="",A2<$M$52,LEN(C2)<3)

 

[piguy]

I wrote the CF into a subroutine instead and that made everything work as normal again.
This isn't the true answer to the problem, but a decent work around I suppose. I'm just a hack at this stuff anyways