Deleting Content of a Cell till the End of Right (Not Row)

Hello svanan,

Welcome to the Forum!

This macro will look through all the worksheets and find all occurances of "revtiming" and delete the data in that cell and all others to the right in the same row.

Sub DeleteColumns()

  Dim FirstAddx As String
  Dim FoundIt As Range
  Dim LastCol As Long
  Dim What As String
  Dim Wks As Worksheet
  
    What = "recvtiming"
    
    For Each Wks In Worksheets
      LastCol = Wks.UsedRange.Columns.Count
      Set FoundIt = Wks.UsedRange.Find(What, , xlValues, xlWhole, xlByColumns, xlNext, False)
      If Not FoundIt Is Nothing Then
         FirstAddx = FoundIt.Address
           Do
             FoundIt(1, LastCol - FoundIt.Column).ClearContents
             Set FoundIt = Wks.UsedRange.FindNext(FoundIt)
           Loop While Not FoundIt Is Nothing And FoundIt.Address <> FirstAddx
      End If
   Next Wks
   
End Sub