Working with images

[Russk68]

Hi All
I have several pictures of equipment to the side of a sheet that is like a library. When I need to grab these pictures, I scroll over to look for it and then copy it and paste it to where I need it.

I'm looking for a shortcut that I'm guessing isn't possible. Something like: Type the name of the equipment in a cell and magically the image is pasted there.

Looking for any suggestions.

Thank you!

Russ

 

[My Aswer Is This]

Try this for clearing more then one:

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  4/5/2019  12:41:53 PM  EDT
On Error GoTo M
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
If Target.Column = 1 Then
If Target.Value = "" Then Exit Sub
ActiveSheet.Shapes(Target.Value).Copy
ActiveSheet.Paste Destination:=Target.Offset(, 3)
End If
Exit Sub
M:
MsgBox "Shape not found"
End Sub

 

[Russk68]

That works great

Thank you very much!

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

That works great

Thank you very much!