Vaishin, my suggestion would be to get the number of zones during the form initialization as an input box prompt, and then dynamically generate the textboxes from that anwer. Something like this?
Private Sub UserForm_Initialize()
Dim newct As Control
Dim bxtop As Integer
Dim zones As Long
zones = InputBox("How many zones?")
bxtop = 38
For i = 1 To zones
With Me.Controls
Set newct = .Add("Forms.textbox.1")
With newct
.Width = 150
.Height = 18
.Top = bxtop
.Left = 10
.ZOrder (0)
.Name = "Zone " & i
End With
bxtop = bxtop + 25
End With
Next i
End Sub
Bookmarks