Private Sub UserForm_Initialize()
Dim CT As Control
Dim i&
'---
For Each CT In Me.Controls
If TypeName(CT) = "TextBox" Then
CT.Value = CT.Tag
End If
Next CT
End Sub
Private Sub UserForm_Terminate()
Dim CT As Control
Dim i&
'---
UsfName = Me.Name
For Each CT In Me.Controls
If TypeName(CT) = "TextBox" Then
i& = i& + 1
ReDim Preserve CollectionTextBox(1 To i&)
CollectionTextBox(i&).Name = CT.Name
CollectionTextBox(i&).Value = CT.Value
End If
Next CT
'---
Application.OnTime Now + TimeValue("00:00:00"), "SetValueInTag"
End Sub