PercentRank used in vba without zeros

[jcg31]

The following code is being used in an application that evaluates a range of data.

pRank = Application.WorksheetFunction.PercentRank(Worksheets(shtname)_
.Range("A1:A17"),.9)

Unfortunately it is including 0 values in the analysis which I would like it to ignore. Does anyone know what to change in the vba code to get it to consider all members of a range, excluding zeros?

Thanks for any help,
Jim

 

[AlphaFrog]

<font face=Courier New>    <SPAN style="color:#00007F">Dim</SPAN> rng <SPAN style="color:#00007F">As</SPAN> Range, cell <SPAN style="color:#00007F">As</SPAN> Range<br>    <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> cell <SPAN style="color:#00007F">In</SPAN> Worksheets(shtname).Range("A1:A17")<br>        <SPAN style="color:#00007F">If</SPAN> cell.Value <> 0 <SPAN style="color:#00007F">Then</SPAN><br>            <SPAN style="color:#00007F">If</SPAN> rng <SPAN style="color:#00007F">Is</SPAN> <SPAN style="color:#00007F">Nothing</SPAN> <SPAN style="color:#00007F">Then</SPAN><br>                <SPAN style="color:#00007F">Set</SPAN> rng = cell<br>            <SPAN style="color:#00007F">Else</SPAN><br>                <SPAN style="color:#00007F">Set</SPAN> rng = Union(rng, cell)<br>            <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br>        <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br>    <SPAN style="color:#00007F">Next</SPAN> cell<br>    pRank = Application.WorksheetFunction.PercentRank(rng, 0.9)</FONT>

 

[jcg31]

AHHH, of course!
Thanks aFrog!
Jim