i use the following code:


Code:
--------------------
Sub CleanSheetHideRows()
Dim nCol As Integer
Dim J As Integer
Dim i As Integer

Application.ScreenUpdating = False
With ActiveSheet
.Range("B4").Select
nCol = 2
For J = 4 To 6000
If .Cells(J, nCol).Value = 0 Then
.Cells(J, nCol).Select
Selection.EntireRow.Hidden = True
End If
Next J
For i = 4 To 6000
If .Cells(i, nCol).Value = "ALL WEEKS" Then
.Cells(i, nCol).Select
Selection.EntireRow.Font.Bold = True
End If
Next i
End With
Application.ScreenUpdating = True
End Sub
--------------------


But i need toahev the RANGE of that row not just one column to be
looked at for 0 value...

Any suggestions please? :)


--
Petitboeuf
------------------------------------------------------------------------
Petitboeuf's Profile: http://www.excelforum.com/member.php...o&userid=10602
View this thread: http://www.excelforum.com/showthread...hreadid=493817