Macro to delete rows with certain values 1

[DSerr77]

I am trying to write a Macro that will evaluate the contents of a cloumn and delete the entire row if the value in a cell meets a certain criteria. Here is what I have so far:

Sub Delete_Row()
Dim Mvalue
Range(A1).select
Do Until Mvalue = Null
Mvalue = ActiveCell.Value
If (ActiveCell.Value = 2)Then
'(I would like to be able to control this value)
'Need to know how to select and delete row
End If
ActiveCell.Offset(1,0).select
Loop

End Sub

Appreciate any help

 

[DSerr77]

Autofilter Method of range class failed ??

 

[DSerr77]

PHV the value of last row = 25014 when I step through.

 

[AnotherHiggins]

I need that variable to change.

So use one of the methods mentioned in an earler post, like this one:

MyVal = InputBox("What do you want to delete?", "Delete Variable")
...
Criteria1:=MyVal

[tt]_____
[blue]-John[/blue][/tt]
[tab][red]The plural of anecdote is not data[/red]

Help us help you. Please read FAQ181-2886 before posting.

 

[DSerr77]

John,

Thanks for sticking with me. I tried using the previous MyVal code and I was getting the auto filter method error. I realize that is because I was testing the code on a one column worksheet. Once I filled columns A-G with data this works great. thanks for your help.