find and place an image into a worksheet

[hainejo]

I would like to automatically insert a picture into a worksheet. The name of the picture is contained in a cell in the worksheet. The location of the pictures will always be in the same folder on my computer.
Does anyone know the code for this?

 

[Paul B]

The Marco below will insert a picture into the worksheet, if the file name is put in AC1, you need the complete path, in AC1, to the photo something like C:Excelphotostest.jpg

Sub GetPic()
Application.ScreenUpdating = False
For Each Shape In ActiveSheet.Shapes
If Shape.Type = msoPicture Then
Shape.Delete
End If
Next Shape
Dim PicPath As String
PicPath = Range("ac1")
On Error GoTo NoPic
Range("f5").Select
ActiveSheet.Pictures.Insert(PicPath).Select
'Range("A1").Select
Application.ScreenUpdating = True
Exit Sub

NoPic:
MsgBox Prompt:="No Picture Available", _
Title:="Error Retrieving Picture", _
Buttons:=vbOKOnly
End Sub