VBA FIND를 통해서 일치하는 값 찾을때까지 검색 후 만약에 없으면 해당셀에 찾는값 없음 넣기

안녕하세요. VBA로 MAIN시트에 데이터 값을 찾아 넣는 코드를 짜고있습니다.

[MAIN]시트에 기준값을 통해서 SHEET1, SHEET2, SHEET3, SHEET4, SHEET5를 순회하면서 값을 찾고 만약 값이 없으면 값없음 이라는 값을 해당 셀에 넣어주고 싶은데 뭐가 잘못된건지 무한 루프를 돌고있습니다.

아래와 같이 코드를 작성하였습니다. 제가 첨부파일을 올려드리고 싶지만 회사 내부 대외비 때문에 이런식으로 올려드리는 점 양해부탁드립니다.

요약해드리자면

1. MAIN시트에있는 특정 값을 Sheet1~5까지 순회하면서 일치하는 값을 찾는다.
2. 일치하는 값을 찾으면 해당 행의 특정 셀을 다시 비교하여 일치하면 일치한 값을 [MAIN]시트에 원하는 셀위치에 넣는다.
3. 만약 1차로 찾은 값에서 2차로 검증해야될 셀의 값이 같지않으면 다음 값을 찾아서 비교하여 같을 때까지 찾는다.
4. 같은 값이 없다면 해당데이터의 행에 "찾는값 없음" 이라고 넣어준다.
5. 원하는 값이 같다면 입력하고 같지않다면 같은거 나올때까지 찾고 같은 값나오면 입력하고 끝까지 같은 값이 없으면 "값없음"입력

두서없이 말씀드려서 죄송합니다. 제가 계속 돌려봐도 무한루프에 걸려서 매크로 실행시 엑셀이 먹통이 되버리는것 같습니다.

혹시 제 코드에 문제 있으면 문제점좀 조언부탁드립니다.

For Each r In rngMain.Offset(1,6)                                                   '[MAIN]의 열(이름) 전체영역 각셀 r변수 담아 순환
With Sheets(2).UsedRange                                                           '[Sheet2] 사용영역 전체
Set rFind = rngSheet5.Offset(1,2).Find(what:=rngC, lookat:=xlWhole)     '[Sheet5]에서 일치하는 데이터찾아 rFind에 넣고

If Not rFind Is Nothing Then                                                        '만일 일치하는 데이터가 있으면(찾은 값이 있으면)
strAddr = rFind.Address                                                              '일치한 셀의 주소를 변수에 넣음

Do
If r.Offset(0,-5).value = rFind.Next Then                 ' 찾고자하는 값 (MAIN)과 (sheet5)에서 찾은값과 비교해서 일치한다면
r.Offset(0,-4).value = rFind.Offset(0,4).value        ' sheet5에 특정 값을 main시트의 위치에 값을 넣아라
Exit Do                                                          'loop를 빠져나감
Else
Set rFind = rngSheet5.Offset(1,2).FindNext(C)         '다음 일치하는 데이터를 찾고
If Not rFInd Is Nothing Then                              '만일 일치하는 데이터가 있으면
r.Offset(0,-4).value = rFind.Offset(0,4).value
Exit Do                                                          'loop를 빠져나감
End If
End If
Loop While Not rFind Is Nothing And strAddr <> rFind.Address
'일치하는 데이터 없을때까지, 처음 찾은 주소가 아닐때까지 반복
End If

Next r