How can I insert a photo into a specific cell.

The name of the photo is selected from a dropdown list in cell A3 and all the photos are kept together in one directory.

Thanx

Here is a hint

Sub Insert_Shape()

Dim oWS As Worksheet
Dim oShp As Shape
Dim sFileName As String


Set oWS = ActiveSheet

sFileName = Trim(oWS.Range("A3").Text)

Set oShp = oWS.Shapes.AddPicture("c:\temp\" & sFileName, True, True, 100, 100, 70, 70)



End Sub

Cheers
Shasur

http://www.dotnetdud.blogspot.com

VBA Tips & Tricks (http://www.vbadud.blogspot.com)

Thanks Shasur, it works a treat :D

Europom