'범위 선택
Range("B2").CurrentRegion.Select

'sub -> Sub Procedure -> 어떤 동작을 수행할 때 (실행문)
'function -> 어떤 값을 결과로 출력해야 할 때

Function ID_Gender(ID)

ID_Gender = WorksheetFunction.IsOdd(Mid(ID, 8, 1))

If ID_Gender = True Then
ID_Gender = "남자"
Else
ID_Gender = "여자"
End If

End Function

Function FindGeder(Name)   선생님! 요기 오타가 있어요! 완성파일에요. Gen에 n이 빠졌습니다!!!

FindGender = WorksheetFunction.VLookup(Name, Range("B2:C24"), 2, 0)

End Function