Ok, I have a problem that I am trying to solve. Range("D3") has the
number 2004. The width of column D is 30. I need to keep the number
2004 as a number not as a text value. If I keep it as a number then
underline the cell using the single accounting underline it only
underlines the number. I want the number accross the majority of the
cell. Similar to using a word table and using the single line
underline in "paragraph" not cell. To show what I am looking for you
can just change the 2004 to be text instead of a number and the line
will be exactly what I am looking for. Is there any way to use VBA to
create an underline that goes across almost all of the cell. I want to
have a little space so when I use the underline across multiple columns
it is not a connected line.

Thanks in advance.
Will