View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
norika norika is offline
external usenet poster
 
Posts: 1
Default Delete Entire Row If Column C is Blank

John

You may try the following

Columns("C:C").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp

to replace
If Cells(r.Row, 3) = 0 Then r.EntireRow.Delete

HTH

noirk

--
Message posted from http://www.ExcelForum.com