VBA要素抽出ツール

Sub 抽出()
Dim objName As String
Dim objRange As Range
Dim myObj As Range
Dim i As Long
Set ws1 = Worksheets("抽出先")
Set ws2 = Worksheets("抽出元")
Set objRange = ws2.Range("A2:K61")
objName = ws1.Cells(2, 1).Value
Set myObj = objRange.Find(objName, lookat:=xlPart)
ws1.Cells(2, 2).Value = ws2.Cells(myObj.Row, myObj.Column + 2).Value

End Sub