Tracking text box changes

[craigyg]

I am looking for a way to track changes to values in textboxes in a more universal way that a textbox_change subroutine. For example, say I have 20 textboxes on a userform and I would like to track if there has been any changes in values made to the userform. Rather than write a textbox_change sub for each, I would like to have one subroutine that handles all of these at once. Is there a way to do this?

 

[sunnyland]

One way to go about it will something like this:

Private Sub TextBox1_Change()
Tupdate (TextBox1.Name)
End Sub

Private Sub TextBox2_Change()
Tupdate (TextBox2.Name)
End Sub

Private Sub TextBox3_Change()
Tupdate (TextBox3.Name)
End Sub


Sub Tupdate(texti As String)
Select Case texti
Case "TextBox1"
MsgBox TextBox1.Value
Case "TextBox2"
MsgBox TextBox2.Value
Case "TextBox3"
MsgBox TextBox3.Value
End Select
End Sub

Meaning everytime one textbox changes it runs the same sub having the name of the textbox as parameter.
In the sub you can then depending of the name do the coding you want