使用Application.Match键入不匹配，仅在MAC

Question

我创建了一个简单的宏并在Windows上运行良好，但是，当我在MAC上运行时，存在类型不匹配错误。下面的代码出了什么问题？它发生在第If IsError(Application.Match(myValue, value_range, 0)) Then行：

Sub HideAndSeek()


Rows("3:5676").Select
    Selection.EntireRow.Hidden = True

myValue = InputBox("Type in an ID")

If myValue = "" Then Exit Sub

value_range = Columns("A:A")


If IsError(Application.Match(myValue, value_range, 0)) Then

   MsgBox "No ID found"
   Exit Sub

Else

    index_num = Application.WorksheetFunction.Match(myValue, value_range, 0)


End If


Rows(index_num).RowHeight = 120

End Sub