조건부 서식 전체삭제

  '조건부서식 삭제-- 수정중... 참고만할것.
Sub 조건부서식삭제()
'
' 조건부서식삭제 매크로
'
  Application.Range("a1:as50").FormatConditions.Delete ' 선택영역을 조건부서식을 삭제한다.
'  Application.ActiveWorkbook.Activate
'    Range.FormatConditions.Delete
End Sub

' 선택영역을 지정한 후 실행하는 다른 방식의 함수 - 수정중

Public Function DelFormatCondition()
    Dim s_Range As Range
    s_Range = Application.ActiveWorkbook.ActiveSheet.Selection.Range
    s_Range.FormatConditions.Delete
'    With s_Range.FormatConditions
'        For Each i In .Item
'        Next i
'    End With
End Function