Macro to delete rows where row contains ' (row looks blank but contains ')

[howard]

I would like to delete all rows in sheets 1 & 2 where the rows in Col A contain a ' (row actually looks blank but contain the ')

I have tried to write code just for the active sheet but cannot get it to work

It would be appreciated if someone could kindly assist me to amend my code as well as to incorporate sheets 1 & 2

 Sub Delete_Rows_apostrophe()
Dim r As Long
Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For r = LastRow To 1 Step -1
If Cells(r, 1) = "'" Then
Rows(r).Delete
End If
Next r
End Sub

 

[Alex Blakenburg]

Unless you have a requirement to distinguish between an empty string "" and a single quote '
This should work.
It will ignore empty/blank (null) rows.

If Cells(r, 1) = "" And Not IsEmpty(Cells(r, 1)) Then

 

[howard]

Thanks Alex. Code works perfectly

 

[howard]

Hi Alex

I tried to amend the code to delete this on all sheets, but it is not doing so

Kindly check & amend

 Sub Delete_Rows_apostrophe()
Dim I As Long
Dim r As Long
Dim LR As Long
LR = Cells(Rows.Count, "A").End(xlUp).Row
For r = LastRow To 1 Step -1
For I = 1 To Worksheets.Count
 With Worksheets(I)

If .Cells(r, 1) = "" And Not IsEmpty(.Cells(r, 1)) Then

.Rows(r).Delete
End If
 End With
  Next I
Next r

 
  
End Sub

 

[howard]

Alex I resolved the issue
Changed

 For r = LastRow To 1 Step -1

to

For r = LR To 1 Step -1

 

[Alex Blakenburg]

Glad you got it working. Thanks for letting me know.