Userform/TextBox Issues

  • Thread starter Thread starter mastermind
  • Start date Start date
M

mastermind

I have mutlitple boxes on a userform that run the exact same code as
can be seen below. For the sake of efficiencey I would like all these
textboxes to reference the same section of code, but I can't seem to
get it to work. Can anyone help me with this problem?

Private Sub TextBox1_Change()
If IsNumeric(TextBox1.Text) Then
If TextBox1.Value < 1 Or TextBox1.Value > 12 Then
TextBox1.Value = Month(Date)
MsgBox "This box is intended to indicate the month and" &
_
vbCrLf & "will only accept values between 1 and 12"
End If
Else
TextBox1.Value = ""
End If
End Sub
 
Back
Top