!VR- see workbook task "MatchActionOnRange"- Highlight a range of cells, select menu item "Task > Math Action on Range" and choose the math op (/ 100, * 1000, ...) you want to takeXTMath Operation on a Range of Cells Samplern- Perform math operation (+,-,*,/) on a range of cells THEC$MathActionOnRangeo = ListBox2("Choose","+","-","*","/") m = InputBox("Enter value") if And(Not(IsError(o)),Not(IsError(m))) c = Column(Sel()) r = Row(Sel()) numCols = Columns(Sel()) numRows = Rows(Sel()) for i = r to r+numRows-1 for j = c to c+numCols-1 v = CellRef(j,i) if o = "+" v = v + m elsif o = "-" v = v - m elsif o = "*" v = v * m else v = v / m end Set(CellRef(j,i),v) end end end *Math Action on RangeSheet1Sheet2Sheet3O7GArialK Fؠ0РLGOGArialK Fؠ0РLGOGArialK Fؠ0РLGOGArialK Fؠ0РLGOGArialK Fؠ0РLGOGArialK Fؠ0РLGO7GArialK Fؠ0РLG  - - K - K  K - K %-%d.M.yyd-MMM-yyd-MMMMMM-yyh:mm tt H:mmh:mm:ss ttH:mm:ssd.M.yyH:mm "      Z&?'?(?)?*,d#     -2@@"@ -(@@2@ -(@2@@ Z&?'?(?)?*,|d# Z&?'?(?)?*,se enterd#