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

Right-click on the sheet tab and "View Code"

Copy/paste the code into that module.

Operates on columns A through H.

Change the Target.Column = 8 to adjust.


Gord Dibben MS Excel MVP

On Thu, 14 Sep 2006 06:00:02 -0700, Mosaic Steve
wrote:

Not the answer im looking for.. I need a default set so anyone who opens the
spreadsheet and enters data, the text will automatically default to caps. I
can do this in VB and other programs. Not sure if Excel has that feature.

"Gary''s Student" wrote:

Use the CAPS LOCK key
--
Gary''s Student


"Mosaic Steve" wrote:

Can I set cells to default to CAPS only when text is entered?

Thanks,
Steve