what columns are you searching on sheet2, all of them? this is similar to what i
posted to another question. just change the ranges and sheet names.

Sub test()
     Dim ws As Worksheet, ws2 As Worksheet
     Dim rngfound As Range
     Dim rng As Range
     Dim toFind As String
     Set ws = Worksheets("Sheet1")
     Set ws2 = Worksheets("Sheet2")
     Set rng = ws2.Range("A1:A30")
     toFind = ws.Range("A1").Value
     With rng
           Set rngfound = .Find(toFind, lookat:=xlWhole, LookIn:=xlValues)
     End With
     If Not rngfound Is Nothing Then
           Application.Goto ws2.Range("A" & rngfound.Row), scroll:=True
     End If

End Sub