VBA user form Variable

[smithb2]

I need some help:

I am trying to declare a varible of type userform so I can pass it as a paramater such as :

Public ufrmForm As UserForm

Sub ValidEntry(i)
For Each ctlFormControl In frmNewOrder.Controls
If ctlFormControl.TabIndex = i Then
Worksheets("WorkingArea").Activate
Range("C2") = ctlFormControl
Range("E2").Select
If ActiveCell.Value = "not valid" Then
intError = MsgBox(strMsg, vbOKOnly, "Error")
Call TextSelect(frmNewOrder, i)
End If
Exit For
End If
Next ctlFormControl
End Sub

Public Sub TextSelect(ufrmForm, i)
For Each ctlFormControl In ufrmForm.Controls
If ctlFormControl.TabIndex = i Then
ctlFormControl.SelStart = 0
intTextLength = Len(ctlFormControl.Text)
ctlFormControl.SelLength = intTextLength
Exit For
End If
Next ctlFormControl
End Sub

not working real well...............any ideas?

thanks and have a great day,
Brian

 

[smithb2]

CASE CLOSED.......................CASE SOLVED

I found that the userform varible is not causing a problem.

Brian