You are welcome... I'm glad you got it working.

--
Rick (MVP - Excel)


"Pats" wrote in message
...
Rick thanks for your time. I now have everything up and running. The
permission error was caused by the fact that I had a RowSouce defined for
the
ComboBox. Once I removed that it was all good.

Again thanks for yor time.



"ordnance1" wrote:

Thanks rick

Just a not I did find that I was able to get past the unspecifed error by
removing the ComboBox1.clear line, but now I get a permission error.

"Rick Rothstein" wrote:

I got it. I'm going out for a little while so I'll look at it this
evening
and get back to you.

--
Rick (MVP - Excel)


"Patrick C. Simonds" wrote in message
...
Sorry I had missed the . between rick and news


"Rick Rothstein" wrote in
message
...
It isn't there yet (15+ minutes now after you posted your message).
You
should have sent it to this address...

rick(dot)news(at)verizon(dot)net

where you would replace "(dot)" with a "." and "(at)" with "@"
(without
the quote marks, of course).

--
Rick (MVP - Excel)


"Patrick C. Simonds" wrote in message
...
Thanks Rick it should be in your e-mail.


"Rick Rothstein" wrote in
message
...
I'm not sure exactly what to tell you... I tested the code before
I
posted it, and I just tested the code as you modified it, and in
both
cases the code worked as intended.

Why don't you send me your Excel file so that I can look at
exactly
what your setup is... just remove the NO.SPAM parts from my email
address.

--
Rick (MVP - Excel)


"Patrick C. Simonds" wrote in message
...
I get a runtime error "unspecified error" but of course it does
not
tell me what caused the error.

I modified the code as you suggested (see code below). The
employee
list is located on the Employee List worksheet. The RB in this
case
refers to the Relief Board, column I is where that abbreviation
is
located.


Private Sub UserForm_Initialize()

Dim X As Long
Dim LastRow As Long

Const DataSheet As String = "Employee List"
Const GroupToFind As String = "RB"
Const NameColumn As String = "A"
Const GroupColumn As String = "I"

With Worksheets(DataSheet)
LastRow = .Cells(.Rows.Count, NameColumn).End(xlUp).Row
ComboBox1.Clear
For X = 2 To LastRow
If .Cells(X, GroupColumn).Value = GroupToFind Then
ComboBox1.AddItem .Cells(X, NameColumn).Value
End If
Next
End With

End Sub