I have a macro which inserts an image at the current position but since a short while it inserts at the top of the page!

Can anyone help?

myperson = "john_doe"
myfile = "g:\office\files\" + myperson + ".bmp"
ActiveDocument.Shapes.AddPicture(Anchor:=Selection .Range, FileName:=myfile, _
LinkToFile:=False, SaveWithDocument:=True).WrapFormat.Type = wdWrapSquare