I am trying to find 2 bits of text in a file and deletin rows inbetween them. This is what I have so far but the last line
rows(b:C).Select
Does not work Please Help
Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Columns("C:C").Select
Selection.Find(What:="Run", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
b = ActiveCell.Row
Columns("D:D").Select
Selection.Find(What:="Free", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(-1, 0).Range("A1").Select
c = ActiveCell.Row
rows(b:C).Select
rows(b:C).Select
Does not work Please Help
Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Columns("C:C").Select
Selection.Find(What:="Run", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
b = ActiveCell.Row
Columns("D:D").Select
Selection.Find(What:="Free", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(-1, 0).Range("A1").Select
c = ActiveCell.Row
rows(b:C).Select