Multiple case in a spread sheet
 

I'm have the following in VB to have the rage of cells in upper case. I want
on the same spreadsheet to have range F5:F250,G5:G250 to be PROPER case.
What do I need to add to make this happen? HELP

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target,
Range("C5:C250,H5:H250,I5:I250,J5:J250")) Is Nothing Then
Target(1).Value = UCase(Target(1).Value)
End If
Application.EnableEvents = True

End Sub

Multiple case in a spread sheet
 

Replace
UCase(Target(1).Value)
with
Application.WorksheetFunction.Proper(Target(1).Val ue)

Hope this helps,

Hutch

"Tom T" wrote:

I'm have the following in VB to have the rage of cells in upper case. I want
on the same spreadsheet to have range F5:F250,G5:G250 to be PROPER case.
What do I need to add to make this happen? HELP

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target,
Range("C5:C250,H5:H250,I5:I250,J5:J250")) Is Nothing Then
Target(1).Value = UCase(Target(1).Value)
End If
Application.EnableEvents = True

End Sub

Multiple case in a spread sheet
 

TANKS Tom worked great.

"Tom Hutchins" wrote:

Replace
UCase(Target(1).Value)
with
Application.WorksheetFunction.Proper(Target(1).Val ue)

Hope this helps,

Hutch

"Tom T" wrote:

I'm have the following in VB to have the rage of cells in upper case. I want
on the same spreadsheet to have range F5:F250,G5:G250 to be PROPER case.
What do I need to add to make this happen? HELP

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target,
Range("C5:C250,H5:H250,I5:I250,J5:J250")) Is Nothing Then
Target(1).Value = UCase(Target(1).Value)
End If
Application.EnableEvents = True

End Sub