Excel VBA用户窗体在开发页面中工作正常但从宏键无法正常工作

Question

这是我从未见过的奇怪的一个。因此，当我在环境中运行它时，我的代码会起作用，但是当我从宏中运行它时，我将它分配到excel电子表格中，ID号是疯狂的。这是代码：

Dim AN As Worksheet
Set AN = ThisWorkbook.Sheets("A.N. Data")
Dim n As Long
Dim LstRw As Long

'tells system where the next empty line is at so it doesn't overwrite data
n = AN.Range("A" & Application.Rows.Count).End(xlUp).Row

'tells system the value of the last cell in 'row a'
LstRw = Cells(Rows.Count, "A").End(xlUp).Row

'Auto increments ID or 'row a' by one
AN.Range("A" & n + 1).Value = Cells(LstRw, "A").Value + 1

代码段中的最后一行是影响ID号的内容。现在，当我在VBA环境中运行它时，它就像它应该的那样工作。我在数据库上设置了一个宏键，以便从excel电子表格中轻松访问它。宏键打开它没有问题，并且除了ID号之外，所有信息都正确地放在excel中。因此，它不是8473，而是43267.任何想法可能是什么？