Try this manually against a cell with a percentage in it (test worksheet):

=REPT(REPT(CHAR(134),4)&" ",INT(A1*100/5))&REPT("|",MOD(A1*100,5))

If you like that effect:

In your code:

..Range("f1:f" & lastRow).Formula _
= "=REPT(REPT(CHAR(134),4)&"" "",INT(E1*100/5))&REPT(""|"",MOD(E1*100,5))"

"Kilcup <" wrote:

Thank you all,

It looks like it should work fine!

Jeff

---
Message posted from http://www.ExcelForum.com/

--

Dave Peterson