Delete row

[AndyD]

hi
I want to be able to type "x" in a cell in column A and for it to delete the whole row automatically.
if could supply code would be very grateful
Cheers
Andy

 

[Datsmart]

Put this code in the WorkSheet module of the page you want it to work on.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    
    FinalRow = Range("A65536").End(xlUp).Row
    For x = FinalRow To 1 Step -1
        If Cells(x, "A").Value = "x" Then
            Rows(x).Delete Shift:=xlUp
        End If
    Next x

End Sub

Right click the sheet tab you want to have the code act on.
Choose "View Code"
Paste the code in the panel that opens, then close VBA editor.

 

[AndyD]

thanks!