Loop through all worksheets in workbook and reset values in a specific range on each sheet. : Worksheet « Excel « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Excel
  3. Worksheet

Loop through all worksheets in workbook and reset values in a specific range on each sheet.

 

Sub Reset_Values_All_WSheets()
    Dim myWorksheet As Worksheet
    Dim myRng As Range
    Dim cel As Range
    
    For Each myWorksheet In Worksheets
    Set myRng = myWorksheet.Range("A1:A5, B6:B10, C1:C5, D4:D10")
        For Each cel In myRng
            If Not cel.HasFormula And cel.Value <> 0 Then
                cel.Value = 0
            End If
        Next cel
    Next myWorksheet
End Sub








Related examples in the same category

1.Select Entire Sheet
2.Get Worksheets count in a Workbook
3.Get Worksheet name
4.changes the value of the Name property of the first worksheet in the first workbook of the Excel application:
5.Gives indexes of sheets
6.Inserts a new sheet after each sheet
7.Group sheets together
8.Reference worksheet across worksheet
9.Determines if a given worksheet name exists in a workbook
10.Activate last sheet
11.Activate first sheet
12.Reference a worksheet from a workbook
13.Safely Deleting Worksheets Using the DeleteSheet Function
14.Using a Function to Check for the Existence of a Code Name
15.Using the Parent Property to Obtain a Reference to an Object's Parent Object