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