Excel VBA Macro: Resize and Center Shapes in Specific Cells

Sub ResizeShapes() Dim shp As Shape For Each shp In ActiveSheet.Shapes shp.LockAspectRatio = msoFalse If Not Intersect(shp.TopLeftCell, Range('L9:L16')) Is Nothing Then shp.Width = 87.874015748 shp.Height = 87.874015748 shp.Left = shp.TopLeftCell.Left + (shp.TopLeftCell.Width - shp.Width) / 2 shp.Top = shp.TopLeftCell.Top + (shp.TopLeftCell.Height - shp.Height) / 2 End If Next shp End Sub