You might want to start debugging to see where the issue is. Without a copy of your workbook that is all we will probably be able to do for you at this point:
Sub Test()
Dim GoodNumbers(1000) As Integer
'''''''''''''''''''''''''
' Testing:
Debug.Print UserForm3.TextBox2.Value
Debug.Print UserForm3.TextBox2.Text
If UserForm3.Visible = True Then
Debug.Print "Userform3 is visible"
Else
Debug.Print "Userform3 is not visible"
End If
''''''''''''''''''''''''''
Exit Sub
For i = 1 To 1000
GoodNumbers(i) = 3 + 4 * (i - 1)
Next i
If IsError(Application.Match(UserForm3.TextBox2.Value, GoodNumbers(), 0)) Then
UserForm5.Show
Exit Sub
End If
End Sub
Bookmarks