About Us

Don Guillett

Glad to help.

--
Don Guillett
SalesAid Software

"jack" wrote in message
ups.com...
Cheers! Thanks!

The check is in the mail!

Don Guillett wrote:
try this and tell your boss to send me a check.

Sub insertrowabove()
For i = Cells(Rows.Count, "c") _
.End(xlUp).Row To 2 Step -1
If Len(Cells(i, "c")) 2 Then Rows(i).Insert
Next i
End Sub

--
Don Guillett
SalesAid Software

"jack" wrote in message
ups.com...
I have a spreadsheet that I've created a Macro to resort. In the
process of the resort, I had to get rid of blank rows between data. My
boss wants for the rows to be back in the report for aesthetic
reasons....how?!?

PreMacro:

9997468309 6600
9997291271
9997291298
9997484746

9997539753 8900
0030784328

9997539761 8910
0030416639

9997549023 5540
0030797683
0030922550
9997484746
9997549147

999754904X 4750

After My Macro:

9997550331 9450
0030421292
0030423430
0030423872
0030940354
003094127X
9997291271
9997291298
9997484746
9997559827 5070
0030780624
003078641X
003078672X
9997291271
9997291298
9997484746
9997551680 4070

thanks!

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro needed for inserting blank rows	sunslight	Excel Worksheet Functions	2	January 12th 07 05:58 PM
Step up blank rows	Jenny B.	Excel Discussion (Misc queries)	3	December 16th 06 05:35 AM
Using COUNTIF to search for existence	Epinn	Excel Worksheet Functions	31	October 27th 06 04:57 AM
How do I create a Macro to sort data and insert blank rows & subto	karinmpfa	Excel Worksheet Functions	2	April 25th 06 09:57 PM
macro to hide rows if cell is blank	Shooter	Excel Worksheet Functions	3	September 28th 05 10:55 PM