cent) &amp; "%"
               End If
            End If
            If .Value &gt;= .Max Then
               .Tag = -1 * Abs(.Tag)
            ElseIf .Value &lt; 1 Then
               .Tag = Abs(.Tag)
            End If
         End With
      End If
   Next

End Sub
</pre><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p></td><td class="rightbar" valign="top" bgcolor="#C2BEB1">
<!-- No right bar content currently defined -->
</td></tr><tr class="footer"><td></td>
<td>
<p class=