auto caps lock
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Const WS_RANGE As String = "A1:A10" 'edit to suit
On Error GoTo ErrHandler
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
Target.Formula = UCase(Target.Formula)
End If
ErrHandler:
Application.EnableEvents = True
End Sub
This is sheet event code. Right-click on the sheet tab and "View Code".
Copy/paste the above into the sheet module. Edot the range if need then
Alt + q to return to the Exel window.
Gord Dibben MS Excel MVP
On Fri, 25 Jul 2008 00:05:01 -0700, ramzi
wrote:
hi,
how to set outo caps loc (beside turn on caps lock button) at sepcifiy cell.
if any latter enter into cell , he will change to caps lock .
rgds
ramzi
|