Round Function for Entire Sheet
You could use this macro to add the ROUND function to formulas in place.
Sub RoundAdd()
Dim myStr As String
Dim cel As Range
For Each cel In Selection
If cel.HasFormula = True Then
If Not cel.Formula Like "=ROUND(*" Then
myStr = Right(cel.Formula, Len(cel.Formula) - 1)
cel.Value = "=ROUND(" & myStr & ",2)"
End If
End If
Next
End Sub
Gord Dibben MS Excel MVP
On Tue, 15 Jan 2008 19:55:01 -0800, mstjohn
wrote:
I have a sheet with approx 50 formulas that links to other workbooks and
worksheets. Does anyone know how to round the entire sheet without adding the
round function to every cell?
|