or

Sub findsumifslash_A()
With Cells
On Error Resume Next
Set c = .Find("/", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext)
If Not c Is Nothing Then
firstaddress = c.Address
Do
mystr = mystr & "," & c.Address
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address < firstaddress
End If
End With
Range(Right(mystr, Len(mystr) - 1)).EntireRow.Delete
End Sub

--
Don Guillett
SalesAid Software

"Norman Jones" wrote in message
...
Hi Don,

Columns("A").SpecialCells
(xlCellTypeBlanks).EntireRow.Delete

What if there were legitimate blank cells or the slash character were not
located in any cell?

---
Regards,
Norman



"Don Guillett" wrote in message
...
or this should look at fewer cells than for/next loop

Sub findsumifslash()
With Cells
On Error Resume Next
Set c = .Find("/", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext)
If Not c Is Nothing Then
firstaddress = c.Address
Do
Rows(c.Row).ClearContents
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address < firstaddress
End If
End With
Columns("A").SpecialCells(xlCellTypeBlanks).Entire Row.Delete
End Sub

--
Don Guillett
SalesAid Software

"Don Guillett" wrote in message
...
How well do you know vba? Look in vba help index for FINDNEXT

--
Don Guillett
SalesAid Software

"Steph" wrote in message
...
Hi. Is it possible to delete the entire row if the contents of cellA
in
that row contains a "/"?

So, I'd like to scan an entire sheet, and delete all rows that have a
"/"
somewhere within the cell contents in column A of each row. Thanks!