Upper Case Woes
 

Hi!

I use the following code to Cause the first (1) letter of an entry i
column C to be Upper case.
Can I modify it to force the first Two (2) characters to be Upper cas
if in fact they are letters? Or do I need a whole new set of code?

<Start Code
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' Auto change to uppercase first letter
On Error GoTo ErrHandler
If Target.Count = 1 And Target.Column = 3 Then
Application.EnableEvents = False
sStr = Target.Value
Target.Value = UCase(Left(sStr, 1)) & LCase( _
Mid(sStr, 2))
End If
ErrHandler:
Application.EnableEvents = True
End Sub
<End Code

Thanks in advance for any help or suggestions!

--
Brian Matlac
-----------------------------------------------------------------------
Brian Matlack's Profile: http://www.excelforum.com/member.php...nfo&userid=350
View this thread: http://www.excelforum.com/showthread.php?threadid=54560

Upper Case Woes
 

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' Auto change to uppercase first letter
On Error GoTo ErrHandler
With Target
If .Count = 1 And .Column = 3 Then
Application.EnableEvents = False
.Value = UCase(Left(.Value, 2)) & LCase( _
Mid(.Value, 3, Len(.Value) - 2))
End If
End With
ErrHandler:
Application.EnableEvents = True
End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with googlemail if mailing direct)

"Brian Matlack"
wrote in message
news:Brian.Matlack.28dm8o_1148582402.5499@excelfor um-nospam.com...

Hi!

I use the following code to Cause the first (1) letter of an entry in
column C to be Upper case.
Can I modify it to force the first Two (2) characters to be Upper case
if in fact they are letters? Or do I need a whole new set of code?

<Start Code
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' Auto change to uppercase first letter
On Error GoTo ErrHandler
If Target.Count = 1 And Target.Column = 3 Then
Application.EnableEvents = False
sStr = Target.Value
Target.Value = UCase(Left(sStr, 1)) & LCase( _
Mid(sStr, 2))
End If
ErrHandler:
Application.EnableEvents = True
End Sub
<End Code

Thanks in advance for any help or suggestions!!


--
Brian Matlack
------------------------------------------------------------------------
Brian Matlack's Profile:
http://www.excelforum.com/member.php...fo&userid=3508
View this thread: http://www.excelforum.com/showthread...hreadid=545607

Upper Case Woes
 

Thanks Bob!!! Works Great!

--
Brian Matlac
-----------------------------------------------------------------------
Brian Matlack's Profile: http://www.excelforum.com/member.php...nfo&userid=350
View this thread: http://www.excelforum.com/showthread.php?threadid=54560