macro > shape bring to front

[bluepenink]

hello

this is my macro to change color of a shape.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D36")) Is Nothing Then
    Dim Unselected As Long
    Dim Selected As Long
    Unselected = RGB(0, 0, 0)
    Selected = RGB(255, 0, 0)
    For Each sh In ActiveSheet.Shapes
        sh.Line.ForeColor.RGB = Unselected
        sh.Line.BackColor.RGB = Unselected
    Next
    ActiveSheet.Shapes(Target.Text).Line.ForeColor.RGB = Selected
    ActiveSheet.Shapes(Target.Text).Line.BackColor.RGB = Selected
Else
End If
End Sub

basically, i want to bring the shape that is red "select" to front
so i.e.
Selection.ShapeRange.ZOrder msoBringToFront

how can i make the shape that is "Red" outline go infront? can someone pls help!

 

[Andrew Poulsom]

Doesn't this work for you?

ActiveSheet.Shapes(Target.Text).ZOrder msoBringToFront