CAPS LOCK

Nigel Martin · Mar 4th, 2002, 07:25 AM

Is there any way that CAPS LOCK can be turned on automatically when a specific worksheet is activated, then turned off again when another worksheet or workbook is activated ?

Anne Troy · Mar 4th, 2002, 07:32 AM

Not likely. But there is code that will turn all cell entries into upper case.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
Target(1).Value = UCase(Target(1).Value)
End If
Application.EnableEvents = True
End Sub

Nigel Martin · Mar 4th, 2002, 08:11 AM

Many thanks it works well.

Mar 4th, 2002, 07:32 AM	#2
Anne Troy MrExcel MVP Join Date: Feb 2002 Location: Allentown, PA Posts: 2,510	Not likely. But there is code that will turn all cell entries into upper case. Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then Target(1).Value = UCase(Target(1).Value) End If Application.EnableEvents = True End Sub __________________ ~Anne Troy

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 4th, 2002, 07:25 AM	#1
Nigel Martin Board Regular Join Date: Feb 2002 Posts: 133	Is there any way that CAPS LOCK can be turned on automatically when a specific worksheet is activated, then turned off again when another worksheet or workbook is activated ?

Mar 4th, 2002, 08:11 AM	#3
Nigel Martin Board Regular Join Date: Feb 2002 Posts: 133	Many thanks it works well.