从VBA中定义单元值的问题

我的代码检查单元格F8和H8的值，如果它们相同，则应将CELL A1设置为“暗淡”。

Function plchk() Dim sheet As Worksheet Set sheet = ActiveWorkbook.Sheets("check") If CDbl(Trim(sheet.Range("F8").Value)) = CDbl(Trim(sheet.Range("H8").Value)) Then sheet.Range("A1").Value = "dim" End If End Function 

执行此代码时，我不断收到错误“VALUE”