Sub Format_Numbers()
Dim Sha As Shape, i As Long
With Sheets(1)
.Activate
.Range("b2:b6").ClearContents
For i = 2 To 6
Set Sha = ActiveSheet.Shapes("shape" & i)
Sha.TextFrame.Characters.Text = ""
.Cells(i, 2) = .Cells(i, 1)
.Cells(i, 2).NumberFormat = "000.00"
.Cells(i, 2) = Replace(.Cells(i, 2), ",", ".")
Sha.TextFrame.Characters.Text = Format(.Cells(i, 2), "000.00")
Next i
End With
End Sub