Delete blanks

Hi,

I have attached a file. Theres a sub called "Tidy Up" in Module 8.

It should delete blank rows, but when i step through it, it does nothing.

Can anyone see why this is?

Thanks
Seamus
Call-Latest-File.xls
Seamus2626Asked:
Who is Participating?
 
krishnakrkcConnect With a Mentor Commented:
HI,

Replace

.Range("A1").CurrentRegion

with

.UsedRange

Kris
0
 
StephenJRConnect With a Mentor Commented:
Seamus - if you want to delete the rows try replacing your line with this:
.Range("A2", .Cells(.Rows.Count, "A").End(xlUp).Offset(1)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Open in new window

0
 
Seamus2626Author Commented:
Cheers guys!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.