Macro fejl - og det har virket

Hej - Jeg har følgende kode
-----------------------------------------------------
    Sub AllPictSize()
        Dim PecentSize As Integer
        Dim oIshp As InlineShape
        Dim oshp As Shape
   
        PercentSize = InputBox("Enter percent of full size", "Resize Picture", 75)
   
        For Each oIshp In ActiveDocument.InlineShapes
            With oIshp
                .ScaleHeight = PercentSize
                .ScaleWidth = PercentSize
            End With
        Next oIshp
-----------------------------------------------------
Pludselig virker det ikke mere...

Det eneste jeg kan se som nogen forskel siden jeg brugte macroen sidst er at jeg har fået installeret Visual Studio 2008.

Nogen der har et forslag ?? TAK