Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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