bob dot phillips at tiscali dot co dot uk

do the obvious

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Jennifer" wrote in message
...
Bob,
I tried to email you using the email address you have in your profile and
received a message back saying it can't be delivered. What address you
like
me to use? Thank you, Bob. Jennifer
--
Though daily learning, I LOVE EXCEL!
Jennifer


"Bob Phillips" wrote:

Jennifer,

I cannot re-create the problem. Can you mail me the workbook?

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Jennifer" wrote in message
...
Hey Bob,
I did go ahead and change Private Sub tb_EmpName_Change() to Private
Sub
tb_EmpName_Click()

Now when I hit tab or enter it doesn't fill the image box it just goes
to
the next text box. When I switch it back to <tb_EmpName_Change I get
the
problems I was having befo(
--
Though daily learning, I LOVE EXCEL!
Jennifer


"Jennifer" wrote:

HELP! First time trying this, I am try an example out of a book. I'm
stuck.
Do I need to have anything in the Userform Initilize?

Trying to type Employee name and their picture show up in the
userform.
Thank you. Jennifer

Private Sub tb_EmpName_Change()
Dim EmpFound As Range
With Range("EmpList")
Set EmpFound = .Find(tb_EmpName.Value)
If EmpFound Is Nothing Then
MsgBox ("Employee Not Found!")
tb_EmpName.Value = ""
Me.tb_EmpName.SetFocus
Exit Sub
Else
With Range(EmpFound.Address)
tb_EmpPosition = .Offset(0, 1)
tb_EmpHireDate = .Offset(0, 2)
On Error Resume Next
Img_Employee.Picture = LoadPicture( _
"C:\Excel VBA 2003\" & EmpFound & ".jpg")
On Error GoTo 0
End With
End If
End With
End Sub
--
Though daily learning, I LOVE EXCEL!
Jennifer