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
chusker15 wrote:
I have several very large workbooks and I need to convert every number
in the workbooks to a certain number of significant digits. I have
already made a user defined formula to round any number to a set number
of significant digits. Now I am searching for a convenient way to apply
this formula to every value in either a sheet or an entire workbook or
possibly just a selected range of values without altering the text.
Any help would be appreciated.
Thanks
--
chusker15
------------------------------------------------------------------------
chusker15's Profile: http://www.excelforum.com/member.php...o&userid=16843
View this thread: http://www.excelforum.com/showthread...hreadid=320603
--
Dave Peterson