Excel Macro - Need Help - Deleting Content of a Cell till the End of Right (Not Row)

[svanan]

Dear All,

I need help on Excel 2007 Macro , the below coding searches for a string "recvtiming" in a cell as a wildcard and delete it entire row once it founds it in a single active sheet.

Question,
1. How do I manupulate it to search for the same string and upon finding
a) Delete its cell content and all the contents from its right hand of side till its last column which have a value from the same row on all 50 sheets in the workbook.

e.g
a b c d recvtiming 0 1 2 3 4

It should return,
a b c d

====================Start Code ====================
With ActiveSheet

.Select

ViewMode = ActiveWindow.View
ActiveWindow.View = xlNormalView

.DisplayPageBreaks = False

Firstrow = .UsedRange.Cells(1).Row
Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row

For Lrow = Lastrow To Firstrow Step -1

If Application.CountIf(.Rows(Lrow), "recvtiming") > 0 Then .Rows(Lrow).Delete

Next Lrow

End With

====================End Code ====================

 

[svanan]

Still working on this.Arghh its not happening

 

[svanan]

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

I have tried the below, it seem not working too,any advice?

<code>
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
</code>