Microsoft Office Forums - View Single Post

macropod · 07-16-2011, 07:17 PM

Hi atilla,

Try replacing:

Code:

    If CDate(.Range("B" & i).Value) < CDate("7:00:00") Then
      .Range("A" & i).EntireRow.Delete
    End If
    If CDate(.Range("B" & i).Value) > CDate("18:00:00") Then
      .Range("A" & i).EntireRow.Delete
    End If

with:

Code:

    If CDate(.Range("B" & i).Value) > CDate("7:00:00") Then
      If CDate(.Range("B" & i).Value) < CDate("18:00:00") Then
        .Range("A" & i).EntireRow.Delete
      End If
    End If