如何评估外语公式？

Question

我在某些代码方面遇到了一些问题，任何帮助将不胜感激。

我下载了一个代码，该代码使用户能够在下拉列表中使用自动完成功能。该代码评估Activecell是否包含列表，然后将该列表存储为对象。问题是我的用户使用的是西班牙语的Excel版本，因此代码不起作用。特别是，我在这行代码中遇到问题：

Set rFormula = Evaluate(ActiveCell.Validation.Formula1)

If rFormula Is Nothing Then 'VBA doesn't recognize the formula so rFormula = Nothing

End 

End If

为ActiveCell.Validation.Formula1 =公式，但为西班牙语。该代码在我的PC上可以正常使用，因为我使用的是英文版本。

再次感谢！