Hi Everyone
Does anyone have any ideas, anything I could try.
Plus does anyone know how many Pictures can be used, It seem to stop at 62.
Regards
John
"John" wrote in message
...
Hi Everyone
I've taken John McGimpsey's code and modified then for my needs.
What I'm trying to do is, have the picture follow along with the active cell.
I 've got a list of names from B3:B62 and D3:D62 that matches a picture.
Now the picture are staying at the top, and would like them to scroll down
with the selection.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim oPic As Picture
Me.Pictures.Visible = False
For Each oPic In Me.Pictures
If oPic.Name = ActiveCell.Text Then
oPic.Visible = True
" This line not working " oPic.Top = ActiveCell.Offset(3, 3)
oPic.Left = 600
Exit For
End If
Next oPic
End Sub

Hope someone can help me
Regards
John