Hi Johney

Try this to insert into the activecell

Sub test()
On Error Resume Next
Set pic = ActiveSheet.Pictures.Insert("C:\range.gif")
On Error GoTo 0
If Not pic Is Nothing Then 'The picture exists
Set rng = ActiveCell
With pic
.Height = rng.Height
.Width = rng.Width
.Left = rng.Left
.Top = rng.Top
End With
End If
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Johney Salem" <Johney wrote in message ...
Can someone help me? I am trying to embed a picture within a cell, not copy
and paste or insert picture, I want to be able to see the image in a cell
not
outide the grid.

and if it's possible