Help with Word VBA sub

I've got a sub that works ok, but I'm unsure about the syntax. Therefore I'm not sure that the sub will continue to work once installed in the Normal.NewMacros.doc in an end user workstation. I need to know how to identify the Picture number of any picture in a Word doc. Is there a way? Can a Picture number be set as a variable? My sub goes out and grabs a jpg file in a fixed location and inserts it as a picture into the active document. Then it aligns the picture inside the frame of another picture already in the document.

Sub InsertPicture()
    
Application.ScreenUpdating = False
Dim Doc As Word.Document

Dim PicFile As String

Set Doc = ActiveDocument


PicFile = "\\domain-01.com\dfs$\care-one\users\care-one_nanthony\desktop\Smuckers\IMG.jpg"

Doc.Shapes.AddPicture _
FileName:=PicFile, _
LinkToFile:=False, _
SaveWithDocument:=True

    ActiveDocument.Shapes("Picture 24").Select
    Selection.ShapeRange.IncrementLeft 144#
    Selection.ShapeRange.IncrementTop 7.85

Application.ScreenUpdating = True

End Sub

Select all Open in new window