VBA Code: Resize and Reposition Images in Excel Worksheet

Sub ResizeAndRepositionImages()

On Error Resume Next

Dim sh As Shape

For Each sh In ActiveSheet.Shapes
    If sh.TopLeftCell.Address = '$L$9' Or _
       sh.TopLeftCell.Address = '$L$10' Or _
       sh.TopLeftCell.Address = '$L$11' Or _
       sh.TopLeftCell.Address = '$L$12' Or _
       sh.TopLeftCell.Address = '$L$13' Or _
       sh.TopLeftCell.Address = '$L$14' Or _
       sh.TopLeftCell.Address = '$L$15' Or _
       sh.TopLeftCell.Address = '$L$16' Then
        sh.Height = 87.874015748
        sh.Width = 87.874015748
        sh.Left = sh.TopLeftCell.Left + ((sh.TopLeftCell.Width - sh.Width) / 2)
        sh.Top = sh.TopLeftCell.Top + ((sh.TopLeftCell.Height - sh.Height) / 2)
        sh.LockAspectRatio = msoFalse
    End If
Next sh

End Sub