Help with VBA

[chrysti]

Sub InsertImageSameCell()

On Error Resume Next
Let x = 0
Do While x < 720

Set Path = ActiveCell.Offset(0, 0)

ActiveSheet.Pictures.Insert( _
Path).Select

Selection.ShapeRange.ZOrder msoBringToFront

ActiveCell.Offset(1, 0).Range("A1").Select

x = x + 1
Loop

End Sub


This is my code, it hangs up on the ActiveSheet.Pictures.Insert and blows up my file, I think that I have the code right is there something that I am missing??? This needs to work in Excel 7...could that be the issue???

Thanks in advance for the help!!!
Chrysti