VBA Snippets

Sel_BorderInsideAdd

Adds borders to the inside of all the highlighted cells.

Public Sub Sel_BordersInsideAdd(sColourKey As String)
Const sPROCNAME As String = "Sel_BordersInsideAdd"
   On Error GoTo AnError
   Selection.Borders.InsideLineStyle = Options.DefaultBorderLineStyle
   Options.DefaultBorderColorIndex = Return_ShadingColour(sColourKey)
   If gbDEBUG = False Then Exit Sub
AnError:
'   Call Error_Handle(msMODULENAME, sPROCNAME, 1,
   Call MsgBox( _
        "add borders to the inside of all the highlighted cells")
End Sub

Sel_BorderInsideRemove

Removes all the borders from the inside of all the selected cells.

Public Sub Sel_BorderInsideRemove()
Const sPROCNAME As String = "Sel_BorderInsideRemove"
   On Error GoTo AnError


   If gbDEBUG = False Then Exit Sub
AnError:
'   Call Error_Handle(msMODULENAME, sPROCNAME, 1,
   Call MsgBox( _
        "remove the border from the inside of the highlighted cells")
End Sub