macro (not working in 03 excel)

[bluepenink]

hello

is there a way possible for the macro to work in excel 2003? i tried to run this macro on a older computer that had excel 03 and it didnt appear to work. any idea why?

Option Explicit
Sub SetShapeReferences()

    Dim shp As Drawing
    Dim i As Integer
    
    i = 1
    For Each shp In ActiveSheet.Drawings
         shp.Formula = "=" & ActiveSheet.Range("S6").Offset(i, 0).Address
         i = i + 1
    Next shp
    
End Sub

it does not show any error or nothing! :S

 

[Ruddles]

What do you have in cells S7, S8, S9, etc?

How many drawings do you have in your sheet?

Insert the following line immediately after your Dim statements:-

MsgBox "There are " & ActiveSheet.Drawings.Count & " drawings in " & ActiveSheet.Name

and insert this immediately after the For statement:-

MsgBox "Shape " & shp.Name & " is " & shp.Height & "x" & shp.Width

Then run it again. What message boxes do you get?