Evento texto nombre propio en determinadas celdas

[Edmund8]

Hola:

Tengo un formulario en una hoja excel 2007 y quisiera que en algunas celdas cuando termine de escribir automáticamente pase a formato Nombre Propio, encontré en este mismo foro el siguiente código pero no logro hacer que sea solo para las celdas B2 y B4, en la hija1:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Target = Empty Then Exit Sub

If Target.Column = 6 Or Target.Column = 19 Or Target.Column = 23 Then Target = UCase(Target) If InStr("B2$,B4$", Left(Target.Address(, False), 2)) Then _

Target = Application.WorksheetFunction.Proper(Target)

End Sub

Muy agradecido de antemano...!!!

[Armando Montes]

Una explicacion:

If Not Intersect(Target, Range("rngDisplayName")) Is Nothing Then Excel 06-Jul-08 06:09 PM

Ejemplos:

Excel VBA Intersect Method. Using Intersect in Excel VBA