Searching Sheet2 to find a match on Sheet1

My problem is that I have a value in A1 on Sheet1 and I need to Search Sheet2 in Column A to last row of data and if there is a match then open UserForm2.

Private Sub CommandButton2_Click()
Dim LastRow As Long
LastRow = Range("A1").End(xlDown).Row
' If Sheet1 A1 Match anything on sheet2 column A then
If Sheet1.Range("A1") = Sheet2.Range("A2").LastRow Then
'Open UserForm2 with that ID
UserForm2.Show vbModeless
End If
End Sub