I receive a 438 error with this code. It was working before, but since I've added more controls and am ready to publish the userform, I have received this error.
Dim Ctrl As Control
For Each Ctrl In Controls
If TypeName(Ctrl) = "TextBox" Then
If Ctrl.Value = "" Then
Ctrl.BackColor = vbYellow
Ctrl.Parent.Parent.Value = Ctrl.Parent.Index '\\error 438 on this line
Ctrl.SetFocus
MsgBox Ctrl.Name & " is required.", vbOKOnly, "Missing Item"
Exit Sub
End If
End If
Next Ctrl
I thought it may have to do with disabled and/or invisible text boxes, but after enabling and making them visible, it still errors. I've made a test file and deleted every control except one on each multipage, and it still errors. Does anybody have any suggestions?
Bookmarks