Thread: Delete entire row based on cell content
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Wazza McG Wazza McG is offline
external usenet poster
  
Posts: 3
Default Delete entire row based on cell content
Sub deleterowwithoneinit()
'
' Macro1 Macro
' Macro recorded 3/12/2003 by me
'
For Each c In Worksheets("Sheet1").Range("A:A")
If c.Value = 1 Then
c.EntireRow.Delete
End If
Next

End Sub

Wazza McG


Reply With QuoteReply With Quote