Thank You again Norman,
You are a true gentleman.

Exactly as required.
Thanks

Corey....
"Norman Jones" wrote in message
...
Hi Corey,

Norman, or anyone else.
Is the below code able to be enhanced with a PROMPT to manually choose
the image then it placed in the designated cell?

Try:
'=============
Public Sub Tester2()
Dim WB As Workbook
Dim SH As Worksheet
Dim rng As Range
Dim myPic As Picture
Dim res As Variant
Const sAddress As String = "D1" '<<==== CHANGE
Set WB = ThisWorkbook '<<==== CHANGE

res = Application.GetOpenFilename _
("Bitmap Files (*.bmp), *.bmp")
If res = False Then Exit Sub

For Each SH In WB.Worksheets
Set rng = SH.Range(sAddress)
Set myPic = SH.Pictures.Insert(res)
With myPic
.Top = rng.Top
.Left = rng.Left
End With
Next SH
End Sub
'<<=============

---
Regards,
Norman