excel 求 删除公式 保留数值 宏

excel 一键删除公式保留数值 宏出现问题 大神们帮下忙图片说明

 sh.Activate //**先激活worksheet**

 sh.UsedRanelect = sh.UsedRanelect