delete empty rows in workbook

[TooN]

Hi...

Ive got a problem with clearing rows. I want tp clear all the data in a row
if a cel in clomn B is emptry. I want to do that for the entire workbook. The
workbook im working in has about hundred sheets. It will take me hours to
clear all the rows manually. So far i got this code:

Sub ClearRows()
Dim rng As Range
Dim rowcounter As Integer
Dim sheetcounter As Integer

sheetcounter = 0
Do Until sheetcounter = 100
Sheet(sheetcounter).Activate
On Error Resume Next
Set rng = Columns(2).SpecialCells(xlBlanks)
On Error GoTo 0
If Not rng Is Nothing Then
rng.EntireRow.ClearContents
End If
sheetcounter = sheetcounter + 1
Loop
End Sub

Can anyone please tell me what im doing wrong?? (using 2003)

Thanks

[Ron de Bruin]

Hi

If they are blank use this example
http://www.rondebruin.nl/specialcells.htm

If this not working post back


--
Regards Ron de Bruin
http://www.rondebruin.nl



"TooN" <TooN@discussions.microsoft.com> wrote in message news:D15AB088-6958-4C1E-A3BD-E209B8249C74@microsoft.com...
> Hi...
>
> Ive got a problem with clearing rows. I want tp clear all the data in a row
> if a cel in clomn B is emptry. I want to do that for the entire workbook. The
> workbook im working in has about hundred sheets. It will take me hours to
> clear all the rows manually. So far i got this code:
>
> Sub ClearRows()
> Dim rng As Range
> Dim rowcounter As Integer
> Dim sheetcounter As Integer
>
> sheetcounter = 0
> Do Until sheetcounter = 100
> Sheet(sheetcounter).Activate
> On Error Resume Next
> Set rng = Columns(2).SpecialCells(xlBlanks)
> On Error GoTo 0
> If Not rng Is Nothing Then
> rng.EntireRow.ClearContents
> End If
> sheetcounter = sheetcounter + 1
> Loop
> End Sub
>
> Can anyone please tell me what im doing wrong?? (using 2003)
>
> Thanks