使用countcolor以及sumcolor命令出错问题

sandsflake

昨天下了VBA的相关教程，发现COUNTCOLOR以及SUMCOLOR的应用方式，但回来试了一下却出现#NAME的错误，请各位知道的帮帮忙是什么原因，谢谢！
   附：VBA函数库以及必要的宏函数库已加载，原下载的excel文件在本机上可使用，在原excel文件上编辑计算结果无误，但是在TEST.XLS中使用该命令就无法计算结果，详情见附件，请帮忙，谢谢！

马骆

Function CountColor(col As Range, countrange As Range) As Integer
    Dim icell As Range
    Application.Volatile
    For Each icell In countrange
        If icell.Interior.ColorIndex = col.Interior.ColorIndex Then
            CountColor = CountColor + 1
        End If
    Next icell
End Function

Function SumColor(col As Range, sumrange As Range) As Integer
    Dim icell As Range
    Application.Volatile
    For Each icell In sumrange
        If icell.Interior.ColorIndex = col.Interior.ColorIndex Then
            SumColor = Application.Sum(icell) + SumColor
        End If
    Next icell
End Function