What about this:
![]()
Sub Carrots() Dim C As Range For Each C In Columns(3).Cells If C <> "" Then If InStr(C.Value, "Fixed") <> 0 Then If InStr(C.Offset(1), "Fixed") <> 0 Then Rows(C.Offset(1).Row).Delete End If End If End If Next C End Sub
What about this:
![]()
Sub Carrots() Dim C As Range For Each C In Columns(3).Cells If C <> "" Then If InStr(C.Value, "Fixed") <> 0 Then If InStr(C.Offset(1), "Fixed") <> 0 Then Rows(C.Offset(1).Row).Delete End If End If End If Next C End Sub
!If all your troubles are solved, then so is the thread. Show this by marking it so using thread tools at the top of the page.
If I helped do this, then please show your appreciation by awarding rep points.
<------ Button for that is over there
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks