looking for a code that will clear cell value if cell contains certian text

[justlearning123]

what im looking to do is have a code that runs and looks in row 1 of sheet1 and if a cell contains "Char" (and could also have something else like "Char3" or Char12") then it deletes that cell value thank you

[fredlo2010]

Perhaps something like this

Option Explicit

Sub DeleteChar()

   Dim r As Range
   
   For Each r In ActiveSheet.UsedRange.Rows(1).Cells
        If r.Value Like "Char*" Then
            r.Value = vbNullString
        End If
   Next r
    
End Sub

Thanks

[justlearning123]

perfect! thank you

[fredlo2010]

I am glad I was able to help