Macro to find name and delete Column in every workbook

[tonywatsonhelp]

HI Everyone,

I need a macro that can do this,

When run,

Go To Every Visable Sheet, Look for The Name "Tony Smith" in Row 8, (there will be only 1) then delete the entire Column
if the sheet does not have that name go to next sheet

Please help if you can

Tony

 

[Fluff]

How about

Sub delCol()
   Dim ws As Worksheet
   Dim Fnd As Range
   
   For Each ws In Worksheets
      Set Fnd = ws.Rows(8).find("Tony Smith", , , xlWhole, , , False, , False)
      If Not Fnd Is Nothing Then Columns(Fnd.Column).Delete
   Next ws
End Sub

 

[tonywatsonhelp]

Thanks fluff,
This seams to do the trick
Tony

 

[Fluff]

Glad to help & thanks for the feedback.

I've just noticed that you only wanted this to work on visible sheets, so I've changed it for that

Sub delCol()
   Dim ws As Worksheet
   Dim Fnd As Range
   
   For Each ws In Worksheets
      If ws.Visible = xlSheetVisible Then
         Set Fnd = ws.Rows(8).find("Tony Smith", , , xlWhole, , , False, , False)
         If Not Fnd Is Nothing Then Columns(Fnd.Column).Delete
      End If
   Next ws
End Sub