确定当前正在为进度条执行的VBA行

Question

我已经创建了一个包含用户表单的进度条。目前，表单通过手动代码行计算进度，执行以下操作。为了给出上下文，这是一个父宏，它根据用户表单输入运行多个底层宏。

进度提供用户表单栏宽度。

Dim step As Integer
Dim totalsteps As Integer

'code
Call macro1
steps = steps + 1
progress = step / totalsteps

'code
Call macro2
steps = steps + 1
progress = step / totalsteps

等

进度条是根据父宏代码中的这些严格步骤计算的。我希望有一个更流畅的进度条，理想情况下计算模块必须执行的代码行数（分母），并将当前执行的代码行作为分子。

我见过的所有例子都使用循环或函数，这里无法完成。关于如何实现同一目标的所有其他建议也是受欢迎的。