Find a cell then delete the row
Jessi,
I think this will work
Sub FindBase()
Dim c As Range
On Error Resume Next
Set c = Range("A1:A100").Find(what:="BASE", LookIn:=xlValues)
On Error GoTo 0
If Not c Is Nothing Then
c.EntireRow.Delete
End If
End Sub
--
HTH
Bob Phillips
"Jessi" wrote in message
om...
I'm very new to writing code of any kind and I don't really know where
to start with this.
I want to find a cell (I always know the column) and then delete the
whole row.
This is what I have that doesn't work at all:
Sub FindBASE()
' This should delete the BASE row
If ActiveSheet.Range("A1:A100").Value = "BASE" Then
ActiveCell.EntireRow.Delete
End If
End Sub
|