Excel VBA 1004循环工作表function.Product时出错

正在创建VBA命令按钮。其目的是循环单元格的乘积，直到超过阈值。最终循环迭代将打印在excel电子表格中。但是，“Do While…”行会触发附加图像的1004错误。您对修改下面的代码有什么建议吗

感谢您抽出时间：）

Private子命令按钮1\u单击（）
作为整数的Dim i
i=1
Do While WorksheetFunction.Product（[Cells（4,16）：Cells（（i+3,16））

[单元格（4,16）：单元格（（i+3,16））]

不是有效的表达式<代码>范围（单元格（4,16），单元格（（i+3），16））是一个有效的表达式，但可能需要限定。考虑首先指定范围，然后将它们赋值给变量，然后在您的工作表中被确认为正确后使用这些变量。

Private Sub CommandButton1_Click()

Dim i As Integer
i = 1

Do While WorksheetFunction.Product([Cells(4,16):Cells((i + 3), 16))]) < Cells(4, 22)
    WorksheetFunction.Product [Cells(4,16):Cells((i + 3), 16))]

Loop

Cells(4, 17) = i

End Sub