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

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" <(E-Mail Removed)> wrote in message
news:0B018058-EC91-4859-98CD-(E-Mail Removed)...
> 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

Excellent Bob
Thank you very much
Sandy

"Bob Phillips" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
> news:0B018058-EC91-4859-98CD-(E-Mail Removed)...
>> 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
>
>