1.
set rng=[a1:a9]
rng.select
with selection
~~~~abuout formatcondition
end with

2.
set rng=[a1:a9]
with rng
~~~~abuout formatcondition
end with

curiously, number 1 is work out... but, number 2 is not work... why?????


*** Sent via Developersdex http://www.developersdex.com ***

Can you post the rest of the code... It is a little tought to comment without
seeing what is failing...
--
HTH...

Jim Thomlinson


"x taol" wrote:

1.
set rng=[a1:a9]
rng.select
with selection
~~~~abuout formatcondition
end with

2.
set rng=[a1:a9]
with rng
~~~~abuout formatcondition
end with

curiously, number 1 is work out... but, number 2 is not work... why?????


*** Sent via Developersdex http://www.developersdex.com ***

rdz.Select
With Selection
.FormatConditions.Delete
If .Resize(.Rows.Count, 1).Count = 1 Then Exit Sub
adr = .Cells(1).Address(0, 0)
adr2 = .Resize(.Rows.Count, 1).Address(1, 0)
.FormatConditions.Add Type:=xlExpression, _
Formula1:="=MAX(" & adr2 & ")=" & adr
.FormatConditions(1).Font.Color = vbRed
.FormatConditions.Add Type:=xlExpression, _
Formula1:="=IF(COUNTIF(" & adr2 & ",0)0,SMALL(" & adr2 &
",COUNTIF(" & adr2 & ",0)+1)=" & adr & ",MIN(" & adr2 & ")=" & adr & ")"
.FormatConditions(2).Font.Color = vbBlue
End With

the upper source 2 line.... is replaced below follow 1 line.
with rdz

and then, if I run that macro, the adr indicate wrong address curiously.

*** Sent via Developersdex http://www.developersdex.com ***