help with code to remove lines

I have this code that removes all blank lines but I was wondering if there was a way to code this to only delete blank lines if there are more then 1 blank lines.

so if my text looks like this

Please Login or Register  to view this content.

it will look like this after

Please Login or Register  to view this content.

this is the code

Please Login or Register  to view this content.

thank you! but this is for data in a text file.

I got this code to work but when I open the file it leaves a trailing blank line... how can I get it to stop that???

Please Login or Register  to view this content.

oops

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Also, what happend to this?

http://www.excelforum.com/excel-prog...ml#post4003899