With Worksheets(lstname).Pictures.Insert(PicPath)
With .ShapeRange
.LockAspectRatio = msoTrue
.Width = 75
.Height = 100
End With
.Left = Worksheets(lstname).Cells(5, 5).Left
.Top = Worksheets(lstname).Cells(5, 5).Top
.Placement = 1
.PrintObject = True
End With