Auto Formatting a cell to change text to all CAPS.

[Eric Livesay]

How can I format a cell to automatically change any entered text to all capital letters?

Thanks, Eric.

 

[njimack]

Sounds like you're file isn't macro-enabled. From the Save As Dialogue, choose the file type that ends with "xlsm"

 

[NewbieRachel]

Thanks for the reply! Okay so now it says:
Private Sub Worksheet_Change (ByVal Target As Range)
On Error GoTo 0
If Target.HasFormula = False And Target.Count = 1 Then Target.Value = UCase (Target.Value)
End Sub


Is this correct to save and put into place??

 

[cajunlibra]

OK, 3rd time lucky. This code tests whether the target cell contains a formula. It also tests that only one cell is selected.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo 0
    If Target.HasFormula = False And Target.Count = 1 Then Target.Value = UCase(Target.Value)
End Sub

I keep getting that debug error whenever I go from a cell that was blank but I had input, press enter then end up in a cell that already had text. Is there a way you can add to this code to ignore cells that already have data?

This script is wonderfully useful. Thank you for it.

 

[The_Game]

I've tried using the code provided, but after a few cell entries, it kicks me out without saving. I just want to apply this to a columns in 5 separate tables. Is this possible?