I need to find the word "High" in a whole speedsheet, and remove the whole
row containg that word.
Thanks

data is from A1 to A15 A1 has heading e.g."data"-I think heading is
necessary for filering

try this sub

Public Sub test()
Range("a1:a15").Select
Selection.AutoFilter Field:=1, Criteria1:="high"
On Error GoTo line1
With Sheet1.Range("a2:a15")
..Cells.SpecialCells(xlCellTypeVisible).EntireRow. Delete
End With
Range("B1").Activate
Selection.AutoFilter

line1:
End Sub
====================



==========================
Kanga 85 wrote in message
...
I need to find the word "High" in a whole speedsheet, and remove the whole
row containg that word.
Thanks

You might try the following, with a little less code.

Sub FindCellDeleteRow()
'
Cells.Find(What:="high").Activate
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Delete Shift:=xlUp
End Sub




"R.VENKATARAMAN" wrote:

data is from A1 to A15 A1 has heading e.g."data"-I think heading is
necessary for filering

try this sub

Public Sub test()
Range("a1:a15").Select
Selection.AutoFilter Field:=1, Criteria1:="high"
On Error GoTo line1
With Sheet1.Range("a2:a15")
..Cells.SpecialCells(xlCellTypeVisible).EntireRow. Delete
End With
Range("B1").Activate
Selection.AutoFilter

line1:
End Sub
====================



==========================
Kanga 85 wrote in message
...
I need to find the word "High" in a whole speedsheet, and remove the whole
row containg that word.
Thanks

elegant . I was searching for that <shift=xlup I used to use some
tortuous statments. thanks a lot



Ronbo wrote in message
...
You might try the following, with a little less code.

Sub FindCellDeleteRow()
'
Cells.Find(What:="high").Activate
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Delete Shift:=xlUp
End Sub




"R.VENKATARAMAN" wrote:

data is from A1 to A15 A1 has heading e.g."data"-I think heading is
necessary for filering

try this sub

Public Sub test()
Range("a1:a15").Select
Selection.AutoFilter Field:=1, Criteria1:="high"
On Error GoTo line1
With Sheet1.Range("a2:a15")
..Cells.SpecialCells(xlCellTypeVisible).EntireRow. Delete
End With
Range("B1").Activate
Selection.AutoFilter

line1:
End Sub
====================



==========================
Kanga 85 wrote in message
...
I need to find the word "High" in a whole speedsheet, and remove the
whole
row containg that word.
Thanks

Thanks to you both.

"R.VENKATARAMAN" wrote:

elegant . I was searching for that <shift=xlup I used to use some
tortuous statments. thanks a lot



Ronbo wrote in message
...
You might try the following, with a little less code.

Sub FindCellDeleteRow()
'
Cells.Find(What:="high").Activate
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Delete Shift:=xlUp
End Sub




"R.VENKATARAMAN" wrote:

data is from A1 to A15 A1 has heading e.g."data"-I think heading is
necessary for filering

try this sub

Public Sub test()
Range("a1:a15").Select
Selection.AutoFilter Field:=1, Criteria1:="high"
On Error GoTo line1
With Sheet1.Range("a2:a15")
..Cells.SpecialCells(xlCellTypeVisible).EntireRow. Delete
End With
Range("B1").Activate
Selection.AutoFilter

line1:
End Sub
====================



==========================
Kanga 85 wrote in message
...
I need to find the word "High" in a whole speedsheet, and remove the
whole
row containg that word.
Thanks