Hi Forum Freak

Maybe this will give you some ideas

Sub test()
If Not IsNumeric(TextBox1) Then
MsgBox "invalid entry"
Else
If TextBox1.Value = 1 Then Range("A1").Value = "Judith"
If TextBox1.Value = 2 Then Range("A1").Value = "jelle"
End If
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Forum Freak" wrote in message ...
Hello everyone

I have a working IF statement which I have been atempting to modify but I
cannot get it to do what I want, could someone please help.

The value of a cell is based on the value entered into a textbox
I can enter the names into the cell by entering code numbers into the
textbox

If anything other that the code numbers are entered I would like a message
box to pop up saying invalid entry. When OK is clicked the application
should close.

Here is the part of the code I am trying to alter (it is run from a button
on a userform which contains the textbox)

With LogEntry

If ActiveCell.Offset(0, 12).Value = "" Then

With LogEntry.TextBox6

If .Value = "001" Then

ActiveCell.Offset(0, 12).Value = "Kenny Wharton"

End If

If .Value = "002" Then

ActiveCell.Offset(0, 12).Value = "Karl Eason"

End If

If .Value = "003" Then

ActiveCell.Offset(0, 12).Value = "Len Stobbs"

End If

End With



any help would be appreciated

Kenny

Various combinations of Windows ME, 98 and 2000

and Office 97 and 2000