Data Validation - Propercase
Excellent Bob
Thank you very much
Sandy
"Bob Phillips" wrote in message
...
If Not Intersect(Target, Range("E3,H3,B6,E6,H6")) Is Nothing Then
Exit Sub
ElseIf EmptyRng(Sheets("Current Round").Range("E3,H3,B6,E6,H6")) Then
Exit Sub
Else
Target.Value = Application.Proper(Target.Value)
End If
--
HTH
Bob
(there's no email, no snail mail, but somewhere should be gmail in my
addy)
"Sandy" wrote in message
...
Hi
I have the following code and I am having difficulty in setting certain
cells as Propercase.
Not sure if this has any bearing but Cell E3 is actually E3:G3 merged as
H3 is actually H3:J3 merged.
Any help would be good.
If Not Intersect(ActiveCell, Range("E3,H3,B6,E6,H6")) Is Nothing Then
Exit Sub
ElseIf EmptyRng(Sheets("Current Round").Range("E3,H3,B6,E6,H6")) Then
Exit Sub
Else
'*****make the contents of cells E3, H3, E6, H6 - Propercase
*******
End If
TIA
Sandy
|