VBA Code to 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 / 2) - (sh.Width / 2)
    sh.Top = sh.TopLeftCell.Top + (sh.TopLeftCell.Height / 2) - (sh.Height / 2)
    sh.LockAspectRatio = msoFalse

End If

Next sh

End Sub