엑셀 VBA FIND에서 xlpart 적용방법

A            B           C         D          E         F         G          H

안녕하세요 도저히 모르겠어서 질의를 남깁니다.ㅠ

현재 VBA에서 수식을 돌렸을때, 완벽히 일치하는 값만 '넘버'를 반환합니다.

원하는 것은 '주소' 값들 중에서 '고유주소' 값을 일부(xlpart 예상...)만이라도 포함한 것이 있으면 '넘버'를 복사해서 기입하도록 하려고 합니다. 다만, 현재는 완벽히 일치하는 값들만 반환하게 되는데 어떻게 해야할까요...

예) 현재 : 고유 (aa) → 주소(aa) 에서는 2 값 반환 / 하지만 주소(1hh1) 에서는 고유주소(hh) 값 반환불가

------------------------아래 VBA 식 --------------------------------------

Sub free()

Dim rngList As Range
Dim rngValue As Range
Dim strPrice As String
Dim i As Integer
Dim name As Range

Sheets("DataSheet").Activate

Set rngList = ActiveSheet.Range("G:G")

For i = 1 To 50

Set name = ActiveSheet.Range("D1")

Set rngValue = rngList.Find(What:=name.Offset(i, 0), Lookat:=xlPart)

If Not rngValue Is Nothing Then
strPrice = rngValue.End(2)

End If

Range("E1").Offset(i, 0) = strPrice

strPrice = ""

Next i

End Sub