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