Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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