问题结合Worksheet_Change（无效或不合格的参考错误）

我有一个使用Worksheet_Change子项目，使特定的图像可见或不可见基于特定单元格的值（在这种情况下B23 ）。

现在我试图添加第二个标准，根据不同的单元格中的值（在本例中为B24 ），使不同的图像集可见/不可见。

问题是，我现在得到"Invalid or Unqualified Reference"错误，它看起来像".pictures"一块。 这是我试图运行的代码：

 Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Me.Range("$B$23,$B$24")) Is Nothing Then Exit Sub If Target.Address = "$B$23" Then Select Case Target.Value Case "driving" .Pictures("Auto_Map_Labeled").Visible = True .Pictures("Bicycle_Map_Labeled").Visible = False .Pictures("Pedestrian_Map_Labeled").Visible = False Case "bicycling" .Pictures("Auto_Map_Labeled").Visible = False .Pictures("Bicycle_Map_Labeled").Visible = True .Pictures("Pedestrian_Map_Labeled").Visible = False Case "walking" .Pictures("Auto_Map_Labeled").Visible = False .Pictures("Bicycle_Map_Labeled").Visible = False .Pictures("Pedestrian_Map_Labeled").Visible = True End Select ElseIf Target.Address = "$B$24" Then Select Case Target.Value Case "visible" .Pictures("Thumbs_Up").Visible = True Case "invisible" .Pictures("Thumbs_Up").Visible = False End Select End If End Sub 

任何想法可能会出错？ 我应该注意到，我对VBA很新，所以寻找最简单的解决scheme。