Loop through Excel Sheets

by

Wrap the processing code in a loop

for each ws in thisworkbook.sheets
    ' do something on each worksheet
next

example

Sub DeleteEmptyRows()
    Dim ws As Worksheet
    Dim strSearch As String
    Dim lRow As Long

    strSearch = "ressort"

    For Each ws In ThisWorkbook.Sheets
        If (ws.Name <> "Sheet1") And (ws.Name <> "Sheet2") And (ws.Name <> "Sheet3") Then
            With ws
            lRow = .Range("A" & .Rows.Count).End(xlUp).Row
                With .Range("A1:A" & lRow)
                  .AutoFilter Field:=1, Criteria1:="=*" & strSearch & "*"
                  .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
                End With
                ws.Range("$A$1:$P$65536").AutoFilter Field:=1
            End With
        End If
    Next
End Sub

so now if the sheet names are Sheet1 or Sheet2 or Sheet3 they will be skipped.

More Related Contents:

  1. delete Autofilter Field resullt using the header Name
  2. Somehow it’s not copying [closed]
  3. VBA macro that search for file in multiple subfolders
  4. So, I have 6 “master” files to then divide into 40 separate files
  5. Getting ScriptControl to work with Excel 2010 x64
  6. Application.Match gives type mismatch
  7. Count and Highlight keywords within phrases
  8. Transpose a range in VBA
  9. Protecting cells in Excel but allow these to be modified by VBA script
  10. Saving excel worksheet to CSV files with filename+worksheet name using VB [duplicate]
  11. Detect merged cells in VBA Excel with MergeArea
  12. Using VBA code, how to export Excel worksheets as image in Excel 2003?
  13. Parse HTML content in VBA
  14. How to add a DocumentProperty to CustomDocumentProperties in Excel?
  15. How do I name a spreadsheet automatically, by referencing two cells?
  16. Excel VBA Delete Rows
  17. VBA EXCEL To Prompt User Response to Select Folder and Return the Path as String Variable [duplicate]
  18. Should I turn .CutCopyMode back on before exiting my sub procedure?
  19. VBA: How to delete filtered rows in Excel?
  20. Determine whether user is adding or deleting rows
  21. How to use VBA SaveAs without closing calling workbook?
  22. Removing the password from a VBA project
  23. Removing special characters VBA Excel
  24. Excel VBA Userform – Execute Sub when something changes
  25. Excel VBA Formula German/French/Italian/Russian/Dutch/Foreign Function
  26. Iterate over slicer via VBA and select a single item each time
  27. VBA Password Input with Cancel Function
  28. Fast compare method of 2 columns [closed]
  29. Finding first blank row, then writing to it
  30. VBA inheritance, analog of super

Leave a Comment