Need help with changing vba for excel 7!!!!

[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, I know this has to be changed, I just don't know what to change it to for it to work!!!

Thanks in advance for the help!!!
Chrysti

 

[HalfAce]

Hi Chrysti,
I don't have my 07 here (it's at home enjoying a day off that I didn't get ) but I would think if you recorded yourself a quick little macro inserting a picture, it would show you the syntax you need to see.

 

[Norie]

Chrysti

Are you sure the line you indicate is what needs to be changed?

What do you mean by 'hangs up'?

Are you getting any error messages?

 

[chrysti]

Yes I get an error, but it comes up and I don't get to read it because my Excel gives me the fatal error recovering work and shutting down error. It basically makes my whole Excel shut down. But when I step through the macro that is the step that causes all of this to happen everything before that it runs like normal.

 

[HalfAce]

Have you tried recording the actions you want it to perform and having it tell you what it wants to see?