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
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
Code:
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