Excel VBA Macro: 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.Type <> msoTextBox 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