Vba 将一系列细胞提前1个月

我有一些表格，其中一列是日期，我有一个按钮将所有这些日期提前1个月。该按钮与以下代码关联，但它不起作用，而是向我发出一个提示，提示为

400

。谢谢你的帮助

Sub advanceDatebyOneMonth()

   Dim DateCell As Range
   Dim DateRange As Range

   Set DateRange = Range("C11:C26,C32:C40,C46:C54")

   For Each DateCell In DateRange.Cells

      Dim firstDate As Date, secondDate As Date
      firstDate = DateValue(DateCell.Value)
      secondDate = DateAdd("m", 1, firstDate)
      Range(DateCell).Value = secondDate

   Next DateCell

End Sub

这一行：

Range(DateCell).Value = secondDate  

应该是：

DateCell.Value = secondDate  

---

因为DateCell已经是一个范围了

是的，这完全有道理，我没有看到，谢谢