运行错误"13", 类型不匹配

楼兰.惠

各位大神，我为了实现A27表格不同的选项，出现不同表格内容。
选择yes，行28-49不需要填写，隐藏。
选择No，行28-49需要填写，不隐藏。
我写了一段简单的代码，如下：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$27" And Target.Value = "Yes" Then
Rows("28:49").EntireRow.Hidden = True
End If
End Sub

但是当我删除其他单元格的内容，比如删除图片中红色框中。就会出现如下图的状况。

点击调试后，出现报错部分。


本人是个VB小白，望大神们能帮忙如何调试。
感谢！！！！！

楼兰.惠

附件在这里望指教

Gannicus21

测试没有不匹配啊