Can't imagine why anyone would want all CAPS but here is event code to do the
job.

Works on columns 1 through 8.............edit to suit.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column 8 Then Exit Sub
On Error GoTo ErrHandler
Application.EnableEvents = False
Target.Formula = UCase(Target.Formula)
ErrHandler:
Application.EnableEvents = True
End Sub

This is event code. Right-click on the sheet tab and "View Code".

Copy/paste into that sheet module.

As you enter text in any cell it will change to CAPS.


Gord Dibben MS Excel MVP

On Mon, 23 Jul 2007 09:02:05 -0700, juanpablo
wrote:

Hi,

I want to know how can I create a macro or formula tha only accepts text in
capital letters?

Thanks