VBA 处理数据的进度条实现 ；里面代码无法运行。求指导

VBA 处理数据的进度条实现

这个里面代码我怎么运行不出来？ 求指导

是自带的progressbar那个进度条组件吗？更改参数的时候要加上DoEvents才能让它显示变化