Hi,
Thats because your code is wrong, use

TextBox1.Value = Ucase(TextBox1.Value)

regards
KM

-----Original Message-----
I don't know what is wrong here.
I get a can't find project or library error.
Any suggestions peeps?

Private Sub TextBox1_AfterUpdate()
Dim st As String
st = TextBox1.Value
UCase (st)
TextBox1.Value = st
End Sub

Thanks for looking
CAA


---
Message posted from http://www.ExcelForum.com/

.