VBA Code: Resize and Center Shapes in Specific Cells

Sub ResizeShapes() Dim shp As Shape For Each shp In ActiveSheet.Shapes shp.LockAspectRatio = False If shp.TopLeftCell.Row >= 9 And shp.TopLeftCell.Row <= 16 And shp.TopLeftCell.Column = 12 Then shp.Height = 87.874015748 shp.Width = 87.874015748 shp.Top = (shp.TopLeftCell.Top + shp.TopLeftCell.Offset(0, 1).Top) / 2 - shp.Height / 2 shp.Left = (shp.TopLeftCell.Left + shp.TopLeftCell.Offset(1, 0).Left) / 2 - shp.Width / 2 End If Next shp End Sub