>>51
罫線を検知するVBAは、このあたり使うのかしら?

例えば「実線の下線縛り」だと

If Range("A5").Borders(xlEdgeBottom).LineStyle = xlContinuous Then
 MsgBox "下線あり"
 Else
MsgBox "下線なし"
 End If

セルの上下左右も調べることになる?

http://chaichan.lolipop.jp/vbtips/VBMemo2009-01-072.htm