Delete row if field contains Apostrophe

[Peterfc2]

Text in column A. This nearly is what I need but as it removes the rows with an apostrophe. But it also deletes my top row that has hasn't got one.

Sub DeleteRows()
Dim Lastrow  As Long
Dim LastCol As Long
Dim MyRg As Range
    If (ActiveSheet.AutoFilterMode) Then ActiveSheet.AutoFilterMode = False '  REMOVE  AUTOFILTER  IF  EXIST
    Lastrow = Range("A" & Rows.Count).End(xlUp).Row
    LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    Set MyRg = Range(Range("A1"), Cells(Lastrow, LastCol))
    MyRg.AutoFilter Field:=1, Criteria1:="=*'*", Operator:=xlAnd
    MyRg.EntireRow.Delete
    If (ActiveSheet.AutoFilterMode) Then ActiveSheet.AutoFilterMode = False '  REMOVE  AUTOFILTER  IF  EXIST
End Sub

 

[HighAndWilder]

Text in column A. This nearly is what I need but as it removes the rows with an apostrophe. But it also deletes my top row that has hasn't got one.

Sub DeleteRows()
Dim Lastrow  As Long
Dim LastCol As Long
Dim MyRg As Range
    If (ActiveSheet.AutoFilterMode) Then ActiveSheet.AutoFilterMode = False '  REMOVE  AUTOFILTER  IF  EXIST
    Lastrow = Range("A" & Rows.Count).End(xlUp).Row
    LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    Set MyRg = Range(Range("A1"), Cells(Lastrow, LastCol))
    MyRg.AutoFilter Field:=1, Criteria1:="=*'*", Operator:=xlAnd
    MyRg.EntireRow.Delete
    If (ActiveSheet.AutoFilterMode) Then ActiveSheet.AutoFilterMode = False '  REMOVE  AUTOFILTER  IF  EXIST
End Sub

Does this work.

Public Sub subDeleteRows()

  ActiveWorkbook.Save
 
  Application.ScreenUpdating = False
  
  With ActiveSheet
  
    If .AutoFilterMode Then
      .AutoFilterMode = False
    End If
  
    With .Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
        
      .AutoFilter 1, "*-*"
          
      On Error Resume Next
      .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
      On Error GoTo 0
          
      .AutoFilter
       
    End With
    
    .AutoFilterMode = False
  
  End With

  Application.ScreenUpdating = True

End Sub

 

[MikeVol]

Make some changes in your code.

    MyRg.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    '    MyRg.EntireRow.Delete

 

[Peterfc2]

Does this work.

Public Sub subDeleteRows()

  ActiveWorkbook.Save
 
  Application.ScreenUpdating = False
 
  With ActiveSheet
 
    If .AutoFilterMode Then
      .AutoFilterMode = False
    End If
 
    With .Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
       
      .AutoFilter 1, "*-*"
         
      On Error Resume Next
      .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
      On Error GoTo 0
         
      .AutoFilter
      
    End With
   
    .AutoFilterMode = False
 
  End With

  Application.ScreenUpdating = True

End Sub

"*-*" changed to"*'*" and its works fine thank you