VBA Code: Resize and Center Shapes in Specific Cells

Sub ResizeShapes() Dim shp As Shape For Each shp In ActiveSheet.Shapes shp.LockAspectRatio = msoFalse

    If shp.TopLeftCell.Address >= '$L$9' And shp.BottomRightCell.Address <= '$L$16' Then
        shp.Height = 87.874015748
        shp.Width = 87.874015748
        shp.Top = shp.TopLeftCell.Top + ((shp.TopLeftCell.Height - shp.Height) / 2)
        shp.Left = shp.TopLeftCell.Left + ((shp.TopLeftCell.Width - shp.Width) / 2)
    End If
Next shp

End Sub