delete empty rows in workbook

T

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
 
Top