Hi!
Here is same code I have wrote:

Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("B41")
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
Exit For
End If
Next oPic
End With
End Sub

Now all the pictures in the document get invisible!
I want to declear which picture that should be visible or not. Ex. I want to make picture 1-11 visible = False. How?
How do I decler that a specific picture should be visible, "Picture 101.Visible = True"?

Thanks?