EXCEL vba 在rank单元格中使用FIND函数

需要通过一句代码返回 排名第一的人的姓名，如附件所示，对非RANK区域使用FIND函数可顺利返回，但对设置了RANK公示的区域使用会提醒“对象变量或WITH变量为设置”，如果在FIND中使用 lookin:=xlvalue 则会提示下标溢出。研究了一下午也没找到方法 求大神指导！！RANK区域不能变，如果有其他函数可以达到相同效果也是可以的。

MsgBox Sheets(1).Cells(Sheets(1).Range("E3:E5").Find("1", lookat:=xlWhole).Row, 2).Value  '正常
MsgBox Sheets(1).Cells(Sheets(1).Range("D3:D5").Find("1", lookat:=xlWhole).Row, 2).Value  '报错

不要问为什么要求必须用一句代码，我是在调用EXCEL写WORD的时候遇到这个问题的。

你好，我是有问必答小助手，非常抱歉，本次您提出的有问必答问题，技术专家团超时未为您做出解答

本次提问扣除的有问必答次数，将会以问答VIP体验卡（1次有问必答机会、商城购买实体图书享受95折优惠）的形式为您补发到账户。

​​​​因为有问必答VIP体验卡有效期仅有1天，您在需要使用的时候【私信】联系我，我会为您补发。