VBA Code to Resize and Center Shapes in Specific Cells

Sub ResizeShapes()

Dim shp As Shape

'Loop through all shapes on active sheet
For Each shp In ActiveSheet.Shapes
    
    'Unlock aspect ratio
    shp.LockAspectRatio = msoFalse
    
    'Check if shape is located in any of the cells L9 to L16
    If Intersect(shp.TopLeftCell, Range('L9:L16')) IsNot Nothing Then
        
        'Resize and reposition shape to center of cell with height and width of 87.874015748 pixels
        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