LOL - Now show then how to do it with a macro and then watch them try to undo it
:-)

--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 00/02/03

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission :-)
----------------------------------------------------------------------------



"Ron de Bruin" wrote in message
...
Hi Ken

In this case(autofilter) the Undo button make them happy again<g

and lost all there data
I was hoping that it happen<g
We both learn from it


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Ken Wright" wrote in message
...
rotflmao

and lost all there data. (funny)

Was this their words Ron, or your interpretation of the nice things they
called
you :-)

--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 00/02/03

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission :-)
----------------------------------------------------------------------------



"Ron de Bruin" wrote in message
...
Sorry about this one

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Ron de Bruin" wrote in message
...
Hi

I show two friends how they can delete
empty rows with the first example that is working I send.

After trying it a copple of times both select the whole column
and lost all there data. (funny)

Found a way to avoid a problem with specialcells
If there are more then 8192 ranges the areas.count will be 1

Public Sub DeleteBlankRows()
On Error Resume Next 'In case there are no blanks
If Columns("A").SpecialCells(xlCellTypeBlanks).Areas. Count = 1 Then Exit
Sub
Columns("A").SpecialCells(xlCellTypeBlanks).Entire Row.Delete
On Error GoTo 0
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl








---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.560 / Virus Database: 352 - Release Date: 08/01/2004






---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.560 / Virus Database: 352 - Release Date: 08/01/2004