我想列出日期从vba代码编写开始日期和结束日期，并按月递增

Sub ListDates()
    Dim startDate As Date
    Dim endDate As Date
    Dim currentDate As Date
    
    startDate = DateSerial(2022, 1, 1) ' 设置开始日期
    endDate = DateSerial(2022, 12, 31) ' 设置结束日期
    
    currentDate = startDate
    
    Do While currentDate <= endDate
        ' 在这里可以对当前日期进行处理，比如输出到单元格或进行其他操作
        Debug.Print currentDate
        
        ' 递增到下一个月
        currentDate = DateAdd("m", 1, currentDate)
    Loop
End Sub