Hello,
Could anyone be so kind to help me to solve the last step in this code?
Sub delete_error()
ActiveSheet.Unprotect (password)
With ActiveSheet
.AutoFilterMode = False
With Range("g4", Range("g" & Rows.Count).End(xlUp))
.AutoFilter 1, "*Error*"
On Error Resume Next
.Offset(1).SpecialCells(12).EntireRow.Delete
End With
.AutoFilterMode = False
End With
ActiveSheet.Protect (password), DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowSorting:=True, AllowFiltering:=True
End Sub
I would like to have another criteria in the filter ("Do not check"), but I could not figure out how to make it.
Many thanks
Bookmarks