问如果区域包含形状的名称，则使形状可见

EN

If yourCondition Then
   Dim oActive As Worksheet     
   Set oActive = ActiveSheet
   oActive.Shapes("CharlotteTruck").Visible = msoTrue
End if

 If Not Intersect(Target, Range("A8:A10")) Is Nothing Then
    'condition to run when not clicked in range
 Cancel = True 'This line can be remove if not needed 
    'condition to run if cell in range was clicked
 End If

Public Sub Test()

    ActivateShapes ActiveSheet.Range("A8:A10")

End Sub

Public Sub ActivateShapes(rInputRange As Range)

    Dim rCell As Range

    On Error Resume Next

    For Each rCell In rInputRange
        rInputRange.Parent.Shapes(rCell).Visible = msoTrue
    Next rCell

End Sub