Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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