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