thanks Dave. I have to tell you that I posted this question in other forum
and no one gave me the answer. It's really working .

Dave Peterson wrote:
What do you want to do with any existing data that's in that existing sheet?

This:
Set RptWks = Worksheets.Add
could be changed to:
Set RptWks = Worksheets("SomeExistingSheetNameHere")

And then to find the next available row on that sheet:

This:
oRow = -1
becomes
with rptwks
orow = .cells(.rows.count,"A").end(xlup).row
end with

Later, the code is adding 2 to the row number, so you should still be double
spaced.

Thanks Dave,
I only give you a sample of what I was trying to do. Now I am trying to
[quoted text clipped - 81 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