Excel Macro to paste all the images in excel book one after the other

Excel Macro to paste all the images in excel book one after the other

Dim MyFolder As String, fn As String, i As Long
MyFolder = "C:\Pictures\"
If Right$(MyFolder, 1) <> "\" Then MyFolder = MyFolder & "\"
fn = Dir(MyFolder & "*.jpg")
i = 2
Do While fn <> ""
Set p = ActiveSheet.Pictures.Insert(MyFolder & fn)
p.Top = i
i = i + p.Height + 5
fn = Dir()
Loop
End Sub