I hid a shape (VBA) and now cant unhide it...

[Metaripley]

When I use the "False" statement it makes it invisible.
But when I change it to "True", It will not make it visible.

Sub Show_button()

If Range("Custom_dimensions") = "No" And _
    ( _
    IsEmpty(Range("Type_vent")) = True Or _
    IsEmpty(Range("Inch_mm")) = True Or _
    IsEmpty(Range("Entry_With")) = True Or _
    IsEmpty(Range("Entry_length")) = True Or _
    Range("Entry_length") < Range("Entry_With") = True) Then
    
    ActiveSheet.Shapes.Range(Array("Rounded Rectangle 43")).Select 'Criteria ' This is the rule that hides the shape.
    Selection.ShapeRange.Visible = False                                                             
        
    Else
    
    If Range("Custom_dimensions") = "Yes" And _
        ( _
        IsEmpty(Range("Type_vent")) = True Or _
        IsEmpty(Range("Inch_mm")) = True Or _
        IsEmpty(Range("Entry_With")) = True Or _
        IsEmpty(Range("Entry_length")) = True Or _
        IsEmpty(Range("Custom_dimensions")) = True Or _
        IsEmpty(Range("Frame_custom")) = True Or _
        IsEmpty(Range("Bolts_custom")) = True Or _
        IsEmpty(Range("Entry_spacing_edge")) = True Or _
        IsEmpty(Range("Entry_Holes_Spaced_Length")) = True Or _
        IsEmpty(Range("Entry_Holes_Spaced_Width")) = True Or _
        Range("Entry_length") < Range("Entry_With") = True) Then

        ActiveSheet.Shapes.Range(Array("Rounded Rectangle 41")).Select 'Criteria
        Selection.ShapeRange.ZOrder msoBringToFront
        Else
            If IsNumeric(Range("Dwg_Nr")) Then
                ActiveSheet.Shapes.Range(Array("Rounded Rectangle 42")).Select 'Existing
                Selection.ShapeRange.ZOrder msoBringToFront
                Else
                ActiveSheet.Shapes.Range(Array("Rounded Rectangle 24")).Select 'Make drawing
                Selection.ShapeRange.ZOrder msoBringToFront
            End If
    End If
End If
      
End Sub

 

[Metaripley]

Nvm!
.Selected needed to be removed.

ActiveSheet.Shapes.Range(Array("Rounded Rectangle 41")).Visible = True