How to reference text in a rectangle shape

Question

What is the VBA command to reference the text that is in an enclosed shape on a worksheet?  I have two rectangles that are used as "check boxes" -- they might have an "X" in them.  I need to be able to store that text, if it exists, in a cell on a different worksheet.  I'm guessing this is close: rect4 = ActiveSheet.Shapes.Range(Array("Rectangle 4")).Text  but apparently ".Text" needs to be something else.

Thanks in advance for any and all help!

Michelle K.

Answer 1

Hi,

Try this syntax

Dim t As String

t = ActiveSheet.Shapes("Rectangle 4").TextFrame.Characters.Text

Answer 2

That's exactly what I need!!!  Thank you very much -- and especially for that lightning fast response!

Michelle K.