Sub FindERROR() Dim SearchString As String
Dim SearchRange As Range, cl As Range
Dim FirstFound As String
Dim sh As Worksheet ' Set Search value SearchString = "NIFTY"
Application.FindFormat.Clear loop through all sheets
For Each sh In ActiveWorkbook.Worksheets
Columns(4).Delete
End Sub 
Hi,
You do mention "Delete Row" in your thread title ... and "Delete Column 4" in your message ...
Thanks for clarifying ...
In addition, with 30 worksheets, do you have headings in Row 1 which would help using the Filter feature ....
Hi,
So basically, a macro could run and search for your text NIFTY in Column D, and delete the entire column, in case this text is found ...
Is that right ?
Hi,
Please make a copy of your original file and ONLY test the Delete Macro with your test copy file 
Sub FindError()
Dim rng As Range, c As Range
Dim search As String
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
Set rng = sh.Columns("D:D")
search = "NIFTY"
Set c = rng.Find(What:=search, LookIn:=xlFormulas, LookAt:=xlWhole, MatchCase:=False)
' Delete Entire Column in each Sheet if search is found
If Not c Is Nothing Then sh.Columns("D:D").Delete
Next sh
End SubOK ...
Sub FindErrorinSheets()
Dim c As Range
Dim search As String
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
search = "NIFTY"
Set c = Cells.Find(What:=search, LookIn:=xlFormulas, LookAt:=xlWhole, MatchCase:=False)
' Delete Entire Column in each Sheet if search is found
If Not c Is Nothing And c.Column = 4 Then sh.Columns("D:D").Delete
Next sh
End SubHope this will work out as expected
Ugh, I dont know what this is
OOPS ... Sorry for my mistake 
Sub FindErrorinSheets()
Dim c As Range
Dim search As String
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
search = "NIFTY"
Set c = Cells.Find(What:=search, LookIn:=xlFormulas, LookAt:=xlWhole, MatchCase:=False)
' Delete Entire Column in each Sheet if search is found
If Not c Is Nothing Then sh.Columns("D:D").Delete
Next sh
End SubFingers crossed ....
Thanks immensely, Carim. It worked like a charm
Glad to hear you found a 'working' solution 
Thanks a lot for your Thanks AND for the Like
Don’t have an account yet? Register yourself now and be a part of our community!
