Macro to find a number and delete a row

[JasonLevan]

In column a I have number 1,2,3,4,5...etc number each row, i need a macro to seek out a number I imput into a message box saw number 5, then find that row and delete that row.

Thanks Alot

 

[Trevor G]

If you still need this try this out..

Sub DeleteRow1()
Dim i As Integer
i = InputBox("Please enter a number")
Range("A2").Select
Do Until ActiveCell.Value = i
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.EntireRow.Delete
End Sub