VBA Challenge 1st day!

🔥 실습 예제과 함께 공부하는 모습을 함께 올려보세요!
(마우스 드래그 & 스크린샷+붙여넣기로 편리하게 그림을 넣을 수 있습니다)

동적범위를 만드려고 무던히도 노력했는데 아래 방법은 안되더군요.

Function FindGender(Name)
Dim ws As Worksheet
'Dim lastRow As Long
Dim idNumber As Variant
Dim SearchRange As Range

Set ws = ActiveSheet

' B2 셀을 기준으로 CurrentRegion 설정
Set SearchRange = ws.Range("B2").CurrentRegion

' B열의 마지막 행 찾기
' lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row

On Error GoTo ErrorHandler

' CurrentRegion을 사용하여 VLOOKUP 수행
' idNumber = WorksheetFunction.VLookup(Name, ws.Range("b2:d" & lastRow), 2, False)
idNumber = WorksheetFunction.VLookup(Name, SearchRange, 2, False)

Dim genderDigit As String
genderDigit = Mid(idNumber, 8, 1)

Select Case genderDigit
Case "1", "3"
FindGender = "남자"
Case "2", "4"
FindGender = "여자"
Case Else
FindGender = "알 수 없음"
End Select
Exit Function

ErrorHandler:
FindGender = "Not Found"
End Function

================================================

코드 실행 중에 직접실행창에서 ?range("$B$2").currentregion.address 하면 "$B$2"를 반환하고 코드 중지 후에 직접실행창에서 ?range("$B$2").currentregion.address 하면 "$B$2:$D:$8" 가 되어
서로 결과가 다르게 나오는 것이지.
정녕 이 방법은 안되는 것일까?