In my original code, this did the headers:

oRow = oRow + 2
RptWks.Cells(oRow, "A").Value = "Policy#"
RptWks.Cells(oRow, "B").Value = "Company"

I'd suggest you change it to look like:

oRow = oRow + 2
RptWks.Cells(oRow, "A").Value = "Policy#"
RptWks.Cells(oRow, "B").Value = "Company"
rptwks.cells(orow, "C").value = "Surrender" & vblf & "Amount"
rptwks.cells(orow, "D").value = "Surrender" & vblf & "Date"

You may want to include code to wraptext and autofit the columns (record a macro
to see the syntax).

"ielmrani via OfficeKB.com" wrote:

Thanks Dave. I removed them from the columns with the numbers and it worked.
One more thing but I am going to try to add myself first. I want to add a
label on top of the last 2 columns.

Like this:

Surrender Value
Amount Date

Surrender Value
Amount Date

Surrender Value
Amount Date

etc..

Dave Peterson wrote:
I used the apostrophe so that any leading 0's wouldn't be lost from the policy
number. You can remove it/them if you don't want them.

The reason I could not format it is because apostrophe got added to the
beginning of each number.
[quoted text clipped - 14 lines]
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200806/1


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200806/1

--

Dave Peterson