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