Change text to uppercase

  • Thread starter Thread starter Matt
  • Start date Start date
M

Matt

Is there a way to format a cell so that if a user types
text in the cell in lower case, Excel will automatically
change it to uppercase. Any help will be greatly
appreciated. Thanks in advance. Matt
 
Matt, you can do it with a macro, here is one way, will change what's put in
A1 to caps, put in worksheet code

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Error_handler
If Not Intersect(Range("A1"), Target) Is Nothing Then
With Target
If Not .HasFormula Then
Application.EnableEvents = False
.Value = UCase(.Value)
End If
End With
End If

Error_handler:
Resume Next
Application.EnableEvents = True
End Sub

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 97 & 2000
** remove news from my email address to reply by email **
 
Back
Top