Excel 2007 VBA: Having trouble ungrouping a newly loaded object

[Andy Pope]

This will convert picture to a group of shapes and then ungroup the shapes

Sub UngroupPicture()
    ' convert picture to shapes
    ActiveSheet.Shapes.Range(Array(ActiveSheet.Shapes(1).Name)).Ungroup
    ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Ungroup
End Sub