vba循环excel偏移量

我想通过值循环，并赋值给另一个单元格的偏移量，但我得到了一个#VALUE错误这是我在做什么我把我look.value>，以确保我正在循环正确的外观.offset（4.0）.Value是问题来自我相当确定的地方

Public Function TotalCharge(cellToCheck As Range) As Double 'Enter range to check Dim total As Double Dim look As Range total = 0 For Each look In cellToCheck If look.Value > 3 Then total = total + look.Value look.Offset(4,0).Value = "TEST" End If Next look TotalCharge = total End Function