jinx_uk_98
Board Regular
- Joined
- Jul 3, 2005
- Messages
- 105
Hi All.
I use this code to rename the tabs of multipage control on a userform.
Sub page()
For Each Cell In Sheets("Data").Range("major_streams")
frm_daily_entry.MultiPage1.Pages.Add Cell.Text
Next
End Sub
The problem I have is that when creating the tabs on the fly I also have to create other controls on the fly too, specifically Labels & textboxes.
The Labels & Textboxes will be defined by looking up the caption of the current tab (on sheet1) and adding however many label/Textboxes that are required (one for every item under the heading on the sheet).
Anyone have any ideas?
thanks
Kevin
I use this code to rename the tabs of multipage control on a userform.
Sub page()
For Each Cell In Sheets("Data").Range("major_streams")
frm_daily_entry.MultiPage1.Pages.Add Cell.Text
Next
End Sub
The problem I have is that when creating the tabs on the fly I also have to create other controls on the fly too, specifically Labels & textboxes.
The Labels & Textboxes will be defined by looking up the caption of the current tab (on sheet1) and adding however many label/Textboxes that are required (one for every item under the heading on the sheet).
Anyone have any ideas?
thanks
Kevin