Excel-如何使用一个工作表中的单元格值转到同一工作簿中单独工作表中的另一个值

Question

现在我有一个地方，这个人可以输入他们想要的约会日期，而且我希望他们能够按“ GO”，这部分很容易。我希望它在另一个数据表中查找并转到与它们在第一张表中放置的值相对应的单元格。

供我参考的“ HomeSheet”下面的代码是用户输入数据的用户页面。我希望他们按下按钮时可以定向到“ DataSheet”页面。

当前代码在我尝试选择找到的与HomeSheet输入日期相对应的单元格的第三行到最后一行给我一个错误。

非常感谢您的帮助！

Private Sub CommandButton4_Click()

    Dim xlRange As Range
    Dim xlCell As Range
    Dim xlSheet As Worksheet
    Dim valueToFind

    valueToFind = ThisWorkbook.Sheets("Homesheet").Range("I8")
    Set xlSheet = ActiveWorkbook.Worksheets("DataSheet")
    Set xlRange = xlSheet.Range("A1:ZZ1")

    For Each xlCell In xlRange
        If xlCell.Value = valueToFind Then
        Sheets("DataSheet").Range(xlCell).Select
        End If
    Next xlCell

End Sub