错误：必须更新此项目中的代码才能在64位系统上使用

Question

我有以下代码，写在Pro Surface 32位上。当我尝试在Mac（64位）上运行时，会产生错误。

  

编译错误：必须更新此项目中的代码才能在64位系统上使用

如何进行此操作？

Sub Button1_Click()

Range("a1").Select
ActiveCell.FormulaR1C1 = "11"

Dim x As Integer
x = Range("a2").Value

Dim i As Integer
For i = 6 To x: 'Replace 39 with your range'
    Range("a1").Value = i   'Replace C1 with your offset cell
    Application.Calculate
    Application.Wait Now + 1 / (24 * 60 * 60# * 1.8)
Next

End Sub