View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
JOUIOUI JOUIOUI is offline
external usenet poster
 
Posts: 72
Default Code deleting all rows in error

Here is the code I'm using in an existing macro to keep only rows with
today's date in column F, however it is deleting all rows. My date format in
the column is MM/DD/YYYY. Any help you can provide is appreciated. Thanks
Joyce

Keep only rows dated today

'Dim LastRow As Long
'Dim RowNdx As Long
' LastRow = Cells(Rows.Count, "F").End(xlUp).Row
' For RowNdx = LastRow To 1 Step -1
' If StrComp(Cells(RowNdx, "F"), "=today", vbTextCompare) < 0 Then
' Rows(RowNdx).Delete
' End If
' Next RowNdx