vba to format shape content into number format

[SPLUCENA]

HI All,

I have around 8 shapes (rectangular) in my worksheet where I assign numbers via vba code, however I seem not to get how to format the shape content to show as numbers (with commas when it thousand or million) with no decimals.
This is the code that I have. Appreciate your help in correcting the error

Sub SelectAllShapesOnTheActiveSheet()  ActiveSheet.Shapes.Format = Format(Value, "#,##0")
End Sub

thank you!

splucena

 

[Fluff]

How about

Sub chk()
   Dim shp As Shape
   For Each shp In ActiveSheet.Shapes
   shp.TextFrame2.TextRange.Characters.Text = format(shp.TextFrame2.TextRange.Characters.Text, "#,##0")
   Next shp
End Sub