suppress conditional formatting programmatically
 

Is there a way to turn off conditional formatting while this macro is
running. Normally the rows need to turn colors but when I insert these rows
it needs to stay white.
There is a formatconditions(1) property that notes if it has conditional
formatting
in the cell but what I want is an on/off switch to turn it off at the
beginning here and then back on a the end.

thanks,

--------code----------

With wks.Range("H1").EntireColumn
For iCtr = LBound(myTypes) To UBound(myTypes)
Set FoundCell = .Cells.Find(what:=myTypes(iCtr), _
after:=.Cells(1), _
LookIn:=xlValues, _
lookat:=xlWhole, _
searchorder:=xlByRows, _
Searchdirection:=xlPrevious, _
MatchCase:=False)
If FoundCell Is Nothing Then
MsgBox myTypes(iCtr) & " wasn't found!"
Else
FoundCell.Offset(1, 0).Resize(23).EntireRow.Insert
End If
Next iCtr
End With

suppress conditional formatting programmatically
 

No you can not turn of conditonal formatting. Why do you need to. What
exactly are you looking for???
--
HTH...

Jim Thomlinson


"Janis" wrote:

Is there a way to turn off conditional formatting while this macro is
running. Normally the rows need to turn colors but when I insert these rows
it needs to stay white.
There is a formatconditions(1) property that notes if it has conditional
formatting
in the cell but what I want is an on/off switch to turn it off at the
beginning here and then back on a the end.

thanks,

--------code----------

With wks.Range("H1").EntireColumn
For iCtr = LBound(myTypes) To UBound(myTypes)
Set FoundCell = .Cells.Find(what:=myTypes(iCtr), _
after:=.Cells(1), _
LookIn:=xlValues, _
lookat:=xlWhole, _
searchorder:=xlByRows, _
Searchdirection:=xlPrevious, _
MatchCase:=False)
If FoundCell Is Nothing Then
MsgBox myTypes(iCtr) & " wasn't found!"
Else
FoundCell.Offset(1, 0).Resize(23).EntireRow.Insert
End If
Next iCtr
End With