Loop Through textbox in Excel

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

sweet - 24 Jan 2006 15:54 GMT

Hi,

I have around 30 textboxes in my Excel 2003. and were created by
=EMBED("Forms.TextBox.1","")

I wonder how I can loop through them using VB within Excel. I have
tried
1. me.controls
2.msforms.textbox
3.OLEObjects

But none of them seems to work. Can you please let me know the syntax
so that I can get each textbox through a loop?

Thanks in advance. Your advice and help would be greatly appreciated.

Reply to this Message

Tom Ogilvy - 24 Jan 2006 16:04 GMT

Dim obj as OleObject
Dim tbox as MSForms.TextBox
for each obj in ActiveSheet.OleObjects
if typeof obj.Object is MSforms.TextBox then
set tbox = obj.Object
msgbox tbox.Name & " - " & tbox.Value
end if
Next

Signature

Regards,
Tom Ogilvy

> Hi,
>
[quoted text clipped - 11 lines]
>
> Thanks in advance. Your advice and help would be greatly appreciated.

Reply to this Message