Can One Check to See if Cell Border Exists?

[murphy00]

Does anyone know of a way to check to see if any of the four outside borders for cell exists? I can check the line weight but, if it doesn't exist I want to find out.

Thank you,
Murph

[ This Message was edited by: murphy00 on 2002-05-18 12:29 ]

[Ivan F Moala]

On 2002-05-18 12:05, murphy00 wrote:
Does anyone know of a way to check to see if any of the four outside borders for cell exists? I can check the line weight but, if it doesn't exist I want to find out.

Thank you,
Murph

[ This Message was edited by: murphy00 on 2002-05-18 12:29 ]

Try something like this:
'
'

Function HasBorders(Rg As Range) As Boolean

'// Check if Rg has Borders

Dim Brd As Borders



Set Brd = Rg.Borders

If Brd.LineStyle <> -4114 Then HasBorders = False: Exit Function

HasBorders = True



End Function



Sub tester()

MsgBox HasBorders(Selection)

End Sub

[murphy00]

Thank you. Now I can stop banging my head on the keyboard