Quotation Marks

Hi.

How to extract name without quotation marks.

E.g
I need to replace

Print #1, TextBox1.Value
Print #1, TextBox2.Value
Print #1, TextBox3.Value

to something like that

For x = 1 To 6
text = "TextBox" & x & ".Value"
Print #1, text <-- text must be without quotation

P.Kosinski

assume the textboxes are activeX textboxes on a worksheet

for i = 1 to 6
Print #1, Activesheet.OleObjects( _
"Textbox" & i).Object.Value
Next

--
Regards,
Tom Ogilvy


"kosecki" <[email protected]> wrote in message
news:[email protected]...
> Hi.
>
> How to extract name without quotation marks.
>
> E.g
> I need to replace
>
> Print #1, TextBox1.Value
> Print #1, TextBox2.Value
> Print #1, TextBox3.Value
>
> to something like that
>
> For x = 1 To 6
> text = "TextBox" & x & ".Value"
> Print #1, text <-- text must be without quotation
>
> P.Kosinski
>

OK.

But when I'd like to assign something to

For i = 0 To 5
ActiveSheet.OLEObjects("Dane.Textbox" & i).Object.Value = table(i)

Next i

I've "Cannot get OLEObjects properties of Worksheet class" or error (or
something like that, I've Polish version of Office)

Greetings

P. Kosinski

*** Sent via Developersdex http://www.developersdex.com ***

what is DANE? I assumed your textboxes are on a worksheet.

If not on a worksheet, where are they?

--
Regards,
Tom Ogilvy

"Piotr Kosinski" <[email protected]> wrote in message
news:[email protected]...
> OK.
>
> But when I'd like to assign something to
>
> For i = 0 To 5
> ActiveSheet.OLEObjects("Dane.Textbox" & i).Object.Value = table(i)
>
> Next i
>
> I've "Cannot get OLEObjects properties of Worksheet class" or error (or
> something like that, I've Polish version of Office)
>
> Greetings
>
> P. Kosinski
>
> *** Sent via Developersdex http://www.developersdex.com ***