Vba：执行While /循环

Question

我的用户界面上有一个标题为“ LOW STOCK”的命令按钮，我希望在单元格G3> 0（单元格G3包含的产品数量低于最低库存限制）时，该按钮的底色在黄色和鲑鱼之间切换。

闪烁将提示用户单击按钮，以显示（通过弹出的消息框）库存不足的产品数量。

我在Userform_Initialize中插入了以下代码，但是excel冻结并显示在标题栏“ Excel无响应”中。请很高兴知道我哪里出了错。

Sub Userform_Initialize
    Do while sheet1.Cells(3, 7) > 0 
        btnLowStock.Backcolor = RGB(255, 255, 0)
        btnLowStock.Backcolor = RGB(255, 128, 128)
    Loop
End Sub