Delete specific row for all worksheets

Hello all,

I am trying to make a code to check for all my sheets in a workbook:

If the cell A1 have the word REV. then i want this first Row to be deleted..

The code goes throw all workbok, reading correctly this cell value but somehow is not deleting this specific cell.


Sub apagar_linhaREV()

Dim Cell As Range
Dim Rng As Range
Dim Source As Worksheet
Dim wb As Object
Dim ws As Worksheet

Set wb = ActiveWorkbook

For Each ws In Worksheets

With ws

Set Source = ws
Set Rng = Source.Range("A1")

For Each Cell In Rng
If Cell = "REV." Then
Cell.EntireRow.Delete
Rows.Cells.Delete

'MsgBox "Ola mundo"
End If

Next Cell

End With

Next ws

End Sub

far as I can tell, the line rows.cells.delete would get rid of everything. I would try:

Sub delete_A1()
dim ws
for each ws in activeworkbook.sheets
if ws.Range("A1") = "REV." then ws.rows(1).delete
next ws
end sub

Hi ragulduy!!

It worked perfectly!!!


I am new at this your writing is a new way for me , thanks,

Do you think its something about version that rows.cells.delete is not working ?

Regards!