请大神给看看这是哪里毛病

两个问题：
具体的报错是什么？
代码是在模块、还是类里面？
几个提示：
1.过程名称有两个下划线比较奇特，建议一般不要自定义名称中使用下划线，下划线用来连接类和方法的。
2.没有看见变量定义的dim语句，不知道myAns是不是全局变量，建议在代码最前面添加Option Explicit，这样便于及时发现错误。
3.代码中的Range、Cells究竟是哪个表的，与代码位置有关，需要注意区分：如果是在模块中就相当于默认ActiveSheet.，如果是在工作表里面就默认是Me.，因此一般建议写明白。

cells(49,2)改为cells(49,2).row看看