For each

[Paul Sansom]

Hi
Is there a simpler & neater way to write this in a For Each loop

    With Sheet3.Shapes
    .Range("Picture 7").Visible = msoFalse
    .Range("Picture 9").Visible = msoFalse
    .Range("Picture 4").Visible = msoFalse
    .Range("Picture 5").Visible = msoFalse
    .Range("Picture 6").Visible = msoFalse
    .Range("Picture 10").Visible = msoFalse
    End With

Cheers Paul

 

[CalcSux78]

Dim shp As Shape

For Each shp In Sheet3.Shapes
    shp.Visible = msoFalse
Next shp

 

[Paul Sansom]

Sometimes I cant see what is blindingly obvious. Many thanks

 

[jmacleary]

Hi Paul - just be aware that the solution fromCalcSux will hide all shapes on the sheet, not just the ones you listed.

 

[Paul Sansom]

Thnx.. This is all the shapes on that Sheet. I deleted some and couldn't be bothered to go back and rename other to be contiguous

 

[RoryA]

If they are all pictures, you should be able to use just:

sheet3.pictures.visible = false