Apply a formula to every numerical value in a selection/workbook.

[chusker15]

I have several very large workbooks and I need to convert every numbe
in the workbooks to a certain number of significant digits. I hav
already made a user defined formula to round any number to a set numbe
of significant digits. Now I am searching for a convenient way to appl
this formula to every value in either a sheet or an entire workbook o
possibly just a selected range of values without altering the text.

Any help would be appreciated.

Thank

 

[Niek Otten]

You might consider usi
--

Kind Regards,

Niek Otten

Microsoft MVP - Excel
ng Tools>Options>Calculation, Precision as displayed

 

[Niek Otten]

Sorry. I meant:

You might consider using

Tools>Options>Calculation, Precision as displayed

--

Kind Regards,

Niek Otten

Microsoft MVP - Excel

 

[Dave Peterson]

Against the selection:

Option Explicit
Sub testme2()

Dim myRng As Range
Dim myCell As Range

Set myRng = Nothing
On Error Resume Next
Set myRng = Selection.Cells.SpecialCells(xlCellTypeConstants, xlNumbers)
On Error GoTo 0

If myRng Is Nothing Then
'no numbers
Exit Sub
End If

For Each myCell In myRng.Cells
'do your stuff
Next myCell

End Sub