ActiveSheet.Shapes.AddPicture Filename:="your path & name", _ LinkToFile:=False, SaveWithDocument:=True, Left:=0, Top:=0, Width:=Application.InchesToPoints(1), Height:=Application.InchesToPoints(1.5)