Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. All the ranges that have conditional formatting set up
Sub all()
    Set rngCond = ActiveSheet.cells.SpecialCells(xlCellTypeAllFormatConditions)
    If Not rngCond Is Nothing Then
        rngCond.BorderAround xlContinuous
    End If
End Sub