delete all blank rows in a spreadsheet
Hi Norman,
Thanks for your help. I have managed to get the code that Nigel provided to
work.
But thanks for your efforts.
"Norman Jones" wrote:
Hi Richard,
Your amended code line:
Set Rng = ActiveSheet.UsedRange 'SH.UsedRange
should read:
Set Rng = SH.UsedRange
as per my suggested code.
However, if you wish, you may send me your workbook:
norman_jones@NOSPAMbtconnectDOTcom
(Delete "NOSPAM" and replace "DOT" with a full stop [period] )
---
Regards,
Norman
"Richard" wrote in message
...
Hi Norman,
I did change the code, I also altered the rows to the following in case I
had inserted a typo:
'Set WB = Workbooks("6036 Pay Cert.xls") '<<===== CHANGE
'Set SH = WB.Sheets("6") '<<===== CHANGE
Set Rng = ActiveSheet.UsedRange 'SH.UsedRange
The same thing happened.
I have also manually deleted contents from a few blank rows, to ensure
that
the rows are blank. Again, the same thing happened.
The cells have borders, but I have assumed this should not affect it.
|