运行时错误 424：新版本 & 旧版本

Question

我完全困惑了...这个宏看着 Range，用 Rnd 绘制一个数字，然后创建一个 vlookup 每次都带回引用和作者我打开我的工作簿（如果有的话）。

这个错误是今天晚上才出现的，但只出现在今天的版本中。我能够按预期打开旧版本和运行代码。

下面是 "Today's" 最新副本并产生运行时错误，中断发生在定义字符串 quote:

的行上

Private Sub Workbook_Open()

Dim sht As Object
Dim RandNumb As Integer
Dim quote As String
Dim author As String
Dim ws As Worksheet

Set ws = Worksheets("Home")

  'Make "Home" Sheet visible and select
ws.Visible = True

  'Search for all sheets not named "Home" and hide them
For Each sht In Worksheets
    If sht.Name <> "Home" Then
    sht.Visible = xlSheetHidden
    End If
Next sht

  'Create random number, then vlookup based off number

RandNumb = Int((56 - 1 + 1) * Rnd + 1)
quote = Application.WorksheetFunction.VLookup(RandNumb, Sheet3.Range("ba101:bc465"), 2, False)
author = Application.WorksheetFunction.VLookup(RandNumb, Sheet3.Range("ba101:bc465"), 3, False)

If quote <> Empty Then
    MsgBox quote & vbNewLine & vbNewLine & " - " & author, vbOKOnly, "Quote of the day"
End If

End Sub

虽然 2/6 的版本工作正常：

Private Sub Workbook_Open()

Dim sht As Object
Dim RandNumb As Integer
Dim quote As String
Dim author As String
Dim ws As Worksheet

Set ws = Worksheets("Home")

  'Make "Home" Sheet visible and select
ws.Visible = True
ws.Select
Range("A1").Select

  'Search for all sheets not named "Home" and hide them
For Each sht In Worksheets
    If sht.Name <> "Home" Then
    sht.Visible = xlSheetHidden
    End If
Next sht

  'Create random number, then vlookup based off number

RandNumb = Int((56 - 1 + 1) * Rnd + 1)
quote = Application.WorksheetFunction.VLookup(RandNumb, Sheet3.Range("ba101:bc465"), 2, False)
author = Application.WorksheetFunction.VLookup(RandNumb, Sheet3.Range("ba101:bc465"), 3, False)

If quote <> Empty Then
    MsgBox quote & vbNewLine & vbNewLine & " - " & author, vbOKOnly, "Quote of the day"
End If

End Sub

这些代码对我来说没有什么不同。即使我从 2/6 复制版本并将其放入 "Today's" 中，我仍然会收到错误。请帮忙

Answer 1

@Rory 解决了这个问题；我不小心更改了 sheet 的名称，但没有在代码中更改。

运行时错误 424：新版本 & 旧版本

Runtime error 424: New version & Old Version

excel

vba

runtime-error