从工作表中的命令按钮调用模块 - VBA

Question

我编写了一个模块，用于匹配在运行时完美执行的产品。

为了让用户的生活更轻松，我想将命令按钮与此模块联系起来，只需按下按钮即可执行相同的代码。

但是，当我在命令按钮区域中编写代码时，执行所需的时间会更长（几秒钟，而不是最多一秒）。

Private Sub cmbSearch_Click()

Module8.CrossReference       'ModuleName.SubFunction

End Sub

我想知道为什么调用方法需要这么长才能执行模块中的整个代码，但似乎找不到令人满意的答案。

有更快的方法来修改/实现这个吗？

    Do
            For i = -6 To 16
                Worksheets("CR-multiple").Range("E2").Offset(Row, (i + 6)).Value = PackageCell.Offset(0, i).Value
            Next i

        Row = Row + 1
    Else
    End If

    'Go to next product
    Set PackageCell = SearchPackage.FindNext(PackageCell)
    'Loop until the search method
    Loop While PackageCell.Address <> FirstPackageCell