For the OP
If you want to delete rows loop backwords
See this page for examples
http://www.rondebruin.nl/delete.htm
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"John Bundy" (remove) wrote in message ...
Try changing this line
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
to this:
Cells(RowCnt, ChkCol).EntireRow.Delete
--
-John
Please rate when your question is answered to help us and others know what
is helpful.
" wrote:
I have macro code to hide rows based on a certain critera but I don't
know how to adapt the code to delete the rows. Basically it checks a
column and for every row <0 it hides it. Problem is I want to delete
the row. How do i change the code below to delete?
BeginRow = 2
EndRow = 500
ChkCol = 13
For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value < 1 Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
End If
Next RowCnt