Macro to place each cells data into its own shape?

[tonywatsonhelp]

Hi Everyone,
I have a list of sentences (Data) in a range of B2:B28
All I want to do is create a shape for each Cell and add the data from that cell into the shape,
i dont want them linked, i just want a shape (square) ith the data from each cell in it so i have 26 shapes each with data in. it doesnt matter where on the page they apear as i'll be moving them around once done.
Thanks
Tony

 

[Snakehips]

Tony, try....

Sub TWHShapes()
Dim Shp As Shape
For Each cell In ActiveSheet.Range("B3:B28").Cells

    Set Shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 260.25, 14.25, 96, 51.75)
    
    With Shp
        .TextFrame2.TextRange.Text = cell.Value
   
        .TextFrame.AutoSize = msoAutoSizeShapeToFitText
        .Top = cell.Top
     End With
  Next cell

End Sub

 

[tonywatsonhelp]

Thanks snakehips, this worked perfectly