saber si una celda tiene borde superior

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
Mira a ver si te vale esto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Borders(xlEdgeTop).Weight = xlThick Then
MsgBox "si"
Else
MsgBox "no"
End If
End Sub


Saludos a

Emilio [MS-MVP Access 2006/7]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio


"chiri" <fernandoSUSTITUYEPORARROBAmollatSUSTITUYEPORPUNTOinfo> escribió en
el mensaje news:%

Quisiera poner una condición para extraer unos datos de una hoja de
cálculo, creada automáticamente por un programa que no puedo manipular.

El caso es que necesitaría hacer unas cosas si una celda tiene borde
superior activado en negrita y otras si no lo tiene (sólo el borde
superior)

algo así como if Worksheets("professor_2").Cells(1, 1).border.superior as
true then

pero no acierto con ello

gracias