VBA to format shapes

[Msadiqrajani]

Hi,
I am trying to develop a macro format all shapes in worksheet a specific format, but nothing happens when I try to run this macro.....No error too.

Also no macro recording supported

Sub doit()
Dim sh As Shape
Set sh = ActiveSheet.Shapes(1)
With sh.Line
.Visible = msoCTrue
.ForeColor.RGB = RGB(25, 25, 25)
.Weight = 8
End With
With sh.Fill
.ForeColor.RGB = RGB(125, 125, 80)
End With
End Sub

Please tell me if theres something wrong in code.
Thanks

 

[Michael M]

Maybe something like.

Sub doit()
Dim sh As Shape
    For Each sh In ActiveSheet.Shapes
        With sh.Line
            .Visible = True
            .ForeColor.RGB = RGB(25, 25, 25)
            .Weight = 8
        End With
            sh.Fill.ForeColor.RGB = RGB(125, 125, 80)
    Next sh
End Sub