2007 Macro : Inserting Pictures

I had a macro that worked perfectly by inserting pictures into named ranges throughout the sheet depending on user input. However when I switched to Microsoft Excel 2007, the pictures all go into one cell.

My code looks like this:


Application.ScreenUpdating = False

Dim picnme As String
Dim rng As Range
Dim ArrImg
Set rng = Range("B5")
picnme = Range("B5")

picnme = Range("B5")
Range("B5").Select
ActiveSheet.Pictures.Insert( _
"C:ArchivePictures" & picnme & ".jpg").Select
Selection.ShapeRange.ScaleWidth 1.1, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.1, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementTop 1.5
Selection.ShapeRange.ScaleWidth 0.84, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.95, msoFalse, msoScaleFromTopLeft

I only copied in a section of it bit it gets rather repetitive. There are over 50 pictures that get inserted into the spreadsheet and it worked fine in the prior version of excel.