循环遍历带日期的范围时，在VBA中键入不匹配

Question

我的目标是根据单元格中的日期自动向用户发送电子邮件。当我想在一个范围的单元格中添加一天时，我得到一个类型不匹配错误。你们有什么想法吗？请参阅下面的代码示例。我必须是盲人，因为这是一段非常简单的代码。

Dim FruitEndDate As Range
Dim Lastrow As Long
Dim FruitPeriod As Date

Lastrow = Cells(Cells.Rows.Count, "L").End(xlUp).Row 
Set FruitEndDate = Range("N6:N" & Lastrow)

FruitPeriod = DateAdd("d", 1, FruitEndDate.Value) 'ERROR here

编辑：

感谢您的投入。你们其中一个人说我需要一个循环。我可以在'fruitperiod'中制作一个循环吗？范围中的单元格已经是日期，所以我认为只添加一天就不会有问题，这样我就可以在IF ... THEN公式中使用该变量。我实际上在For循环中使用'FruitPeriod'变量，但它回退到类型不匹配