Private Sub Worksheet_Change(ByVal Target As Range)
Shapes("Image1").Visible = LCase([C17]) = "yes" And LCase([C18]) = "yes"
Shapes("Image2").Visible = LCase([C17]) = "yes" And LCase([C18]) = "no"
Shapes("Image3").Visible = LCase([C17]) = "no" And LCase([C18]) = "yes"
End Sub