Can the same code be run for multiple fields on a userform?

[gastoff]

I have the following code to check if the formatting of the data being entered into the text field:

Private Sub txtTime1_AfterUpdate()
With txtTime1
   If IsDate(.Value) Then
        .Value = Format(.Value, "HH:MM AM/PM")
    Else
        MsgBox "Input time as HH:MM"
        .Value = ""
        Cancel = True
    End If
End With
End Sub

I have 60 other fields (txtTime2,txtTime3...txtTime60) that need to have the same validation check performed when they are updated. Is there a way to loop through multiple Private Subs or will I need to copy/paste the code and modify it for each individual field?

 

[Teeroy]

You could move your code into a Standard module as a sub/function then have each AfterUpdate event call that sub/function passing the field value as an argument.

It won't be that much shorter in code lines but it would be easier to maintain if you decided you wanted a change to the code.

 

[gastoff]

I doubt my code will have to change any, but it will be good practice to use the method you detailed. Thanks for the feedback! I'll give it a try when I'm at work later.