Select each sheet containing the numbers that you wish to adjust and run this small macro:
![]()
Sub AdjustNumbers() Dim rAdjust As Range, r As Range Set rAdjust = ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeConstants, xlNumbers) For Each r In rAdjust r.Value = r.Value * (100 + Application.WorksheetFunction.RandBetween(-20, 20)) / 100 Next End Sub
Bookmarks