formatting autoshapes using VBA, loads of them

[dumbledown]

Hi,
I have a large diagram with over 400 lines in.
I have another sheet with 2 columns, 1 with the shape names and 1 with values that update - to have values of 1 or 0.

e.g.

[TABLE="width: 500"]
<tbody>[TR]
[TD]Shape_code[/TD]
[TD]Number[/TD]
[/TR]
[TR]
[TD]oval 1
[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]oval 387[/TD]
[TD]0[/TD]
[/TR]
[TR]
[TD]freeform 256[/TD]
[TD]0[/TD]
[/TR]
[TR]
[TD]oval 27[/TD]
[TD]1[/TD]
[/TR]
</tbody>[/TABLE]

Is there a way of importing these columns into VBA automatically so that the drawing sheet will only show those shapes with a 1 next to their name. If formatted manually I would just like the lines or shapes to have and colour fill and no line colour.
It would be great if someone could point me in the right direction.
Thanks
Hugh

 

[ChrisM]

try this:

Sub test()

Dim Src As Variant
Dim i As Long

Src = Sheet1.Range("u4:v6")

For i = 1 To UBound(Src, 1)
    If Src(i, 2) = 0 Then
        Sheet1.Shapes(Src(i, 1)).Visible = msoFalse
    Else
        Sheet1.Shapes(Src(i, 1)).Visible = msoCTrue
    End If
Next i

End Sub

replace Sheet1 with the correct sheet number, or use Sheets("yoursheetname")
replace "U4:V6" with your range of names and codes

 

[dumbledown]

Thanks ChrisM,
That is perfect - however I have misstyped one of the drawing names, there are quite a lot. Do you know how I can I tell which one it fails at.
You are a living legend.

 

[dumbledown]

Sorry, was being a bit slow, have worked it out.
Cheers ChrisM, that is brilliant