R
rmm30
Hi -
I copied the following code from this forum to make certain columns
caps and another proper:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
On Error GoTo ErrHandler
Application.EnableEvents = False
If Target.Column <= 5 Then
Target.Value = UCase(Target.Value)
Else
Target.Value = Application.Proper(Target.Value)
End If
ErrHandler:
Application.EnableEvents = True
End Sub
My question is, how do I make a specific column proper? If I want
column 6 only proper, how do i do that?
thanks
I copied the following code from this forum to make certain columns
caps and another proper:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
On Error GoTo ErrHandler
Application.EnableEvents = False
If Target.Column <= 5 Then
Target.Value = UCase(Target.Value)
Else
Target.Value = Application.Proper(Target.Value)
End If
ErrHandler:
Application.EnableEvents = True
End Sub
My question is, how do I make a specific column proper? If I want
column 6 only proper, how do i do that?
thanks