如何检查单元格是否存在于不同工作表的范围内，然后引用它

Question

All I want to do is check if the Name (Cell B2) in Worksheet "Upload" is in the worksheet "Data" in column A, and if so return a message saying "Name already exists". Ideally I would like the macro to then take me to the row where the name exists. Any help would be appreciated. I've tried other threads and my code just falls over. So could you please add in a section that once locating if the duplicate exists in the "Data" sheet then it takes me into the "Data" sheet and locates it.

Function InRange(Range1 As Range, Range2 As Range) As Boolean
    ' returns True if Range1 is within Range2
    InRange = Not (Application.Intersect(Range1, Range2) Is Nothing)
End Function


Sub TestInRange()

Dim copySheet As Worksheet
Dim pasteSheet As Worksheet

Set copySheet = Worksheets("Upload")
Set pasteSheet = Worksheets("Data")

    If InRange(copySheet.Range("B2"), pasteSheet.Range("A2:A300")) Then
        ' code to handle that the cell is within the right range
        MsgBox "Name exists"
    Else
        ' code to handle that the cell is not within the right range
        MsgBox "Name does not exist"
    End If
End Sub

Answer 1

Sub test()

With Worksheets("Data").Range("a1:a500")
    Set c = .Find(Worksheets("Upload").Range("B2"), LookIn:=xlValues)
    If Not c Is Nothing Then
        MsgBox ("Name Exists")
            Else
        ' code to handle that the active cell is not within the right range
        MsgBox "Name does not exist"
    End If

    End With

End Sub

Actually quite straightforward