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