VBA Code: Resize and Reposition Images in Excel Worksheet

Sub ResizeImages()

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