VBA Code to Resize and Center Shapes in Specific Cells

Sub ResizeShapes()

Dim shp As Shape

For Each shp In ActiveSheet.Shapes
    shp.LockAspectRatio = msoFalse 'Unlock aspect ratio

    'Check if shape is in cells L9 to L16
    If Not Intersect(shp.TopLeftCell, Range('L9:L16')) Is Nothing Then
        'Resize and reposition shape to center of cell
        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