Dim i As Integer, coef As Single
On Error Resume Next
For i = 1 To 95
With Shapes("dept" & Cells(i + 1, 10))
.Height = Cells(i + 1, "I").Value * 30
.Width = Cells(i + 1, "I").Value * 30
With .TextFrame2.TextRange.Characters
.Text = Cells(i + 1, "H").Text
.Font.Size = 7
.Font.Bold = True
End With
End With
Next i