how to Avoid zero in conditional formatting?

[rrosa1]

hi i have following code to add cond.formating but in column there is "0" in cell
so it formet that cell but i need to find small num. in column not the zero
is there any way i can do that?
thanks for looking my requestcl[VBA]
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OR(RC=SMALL(R4C:R367C,1),RC=SMALL(R4C:R367C,2))" For Each cl In rng
Select Case cl.Value
Case Is = 0
Case Is = ""
Case Else
With rng.FormatConditions(2)
With .Font
.Bold = True
.ColorIndex = 5 '3
End With
'.Interior.ColorIndex = 39
End With
End Select
Next [/VBA]

[Bob Phillips]

Untested

[vba]

"=AND(RC<>0,OR(RC=SMALL(R4C:R367C,1),RC=SMALL(R4C:R367C,2)))"
[/vba]

[Bob Phillips]

If you mean the 0 is in the list of numbers, try

[vba]

=OR(L1=SMALL(IF(L$4:L$367>0,L$4:L$367),{1,2}))
[/vba]

[rrosa1]

hi xld
thanks for that

[VBA]"=AND(RC<>0,OR(RC=SMALL(R4C:R367C,1),RC=SMALL(R4C:R367C,2)))"[/VBA]
but this work ,but it don't find the small num.

and the next one give the error

Run time error '5'
" Invalid procedure call or argument"

[VBA]"=OR(RC=SMALL(IF(R4C:R367C>0,R4C:R367C),{1,2}))" [/VBA]

any insight in this is appreciated.

[Bob Phillips]

Can you post the workbook?

[rrosa1]

hi
xld
hear is the wb sample

[Bob Phillips]

Where is the code in here?

[rrosa1]

there is module in wb u can run for conditional formating