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

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