Gary,

I am not sure I understand yet what you are trying to do, but maybe if you
send it to me it will, be clearer.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Gary Keramidas" <GKeramidasATmsn.com wrote in message
...
PS

i can zip up and email the workbook if you're interested. it's only 250K

--


Gary


"Bob Phillips" wrote in message
...
Gary,

The problem with accessing a form is that it is not part of the
userforms
collection until loaded, but you can force this. As an example, make the
Activate event public, and try this

Dim oUserForm As Object
On Error Resume Next
Set oUserForm = UserForms.Add("Userform1")
oUserForm.Load
oUserForm.UserForm_Activate

although I fail to understand why this would be prefereable to
Userform1.Show.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Bob Phillips" wrote in message
...
What is LSite? Is it a control on the userform? If so, that code works
fine
for me.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Gary Keramidas" <GKeramidasATmsn.com wrote in message
...
i have this code assigned to a button on each sheet

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

then i want to set 2 values on the form when the button is clicked.
i
fill
the combo box with the active sheet name (it is a drop down of the 12
month
names, one for each sheet) and i put the line number it is going to
enter
the record on right below that in a text box.

Private Sub UserForm_Activate()
Set ws = ActiveSheet
iRow = ws.Cells(Rows.Count, "B") _
.End(xlUp).Offset(1, 0).Row
UserForm1.TextBox1.Value = "Line Item # " & iRow - 3
UserForm1.ComboBox1.Value = ActiveSheet.Name
Me.LSite.SetFocus
End Sub

it mostly works, but i want the focus to be in the first field,
LSite,
but
the form is not even active after i click the macro button. after i
click
the form to make it the active window, the cursor is still not in the
LSite
field.


how do i get around this behavior?
--


Gary