VBA Rounding

Off the top of my head, you can do this in a procedure:
just an example ...

Sub RoundIt()

Dim MyRange As Range

Application.ScreenUpdating = False
Set MyRange = Range("A1:A3")

For Each Cell In MyRange
Cell.Value = Round(Cell.Value, 2)

Next Cell

End Sub

Application.ScreenUpdating = False Set MyRange = Range("A1:A3") For Each Cell In MyRange Cell.Value = Round(Cell.Value, 2)

Of cource, using your exaple ranges, it would be: For Each Cell In MyRange Cell.Value = Round(Cell.Value, 4)

Excel didn't recognize the Round command all by itself, so I tried the below and got "type mismatch". No dice......

Set MyRange = Range("F1:F1000")
For Each Cell In MyRange
Cell.Value = Application.WorksheetFunction.Round(Cell.Value, 4)
Next Cell

What I did above works fine. My problem was that there was a label in the defined range. That gave me "Type Mismatch error". When I left the label cell out of the range, it worked fine. Another question, if the cell is blank, it puts in 0.0000. Any way to skip blank cells?

Set MyRange = Range("F2:F1000") --> f1 had a label
For Each Cell In MyRange
Cell.Value = Application.WorksheetFunction.Round(Cell.Value, 4)
Next Cell
End Sub

I love answering my own questions.........

pretty crappy goto loop. Anyone have a cleaner solution for skipping over blank cells?

Set MyRange = Range("F2:F1000")
For Each Cell In MyRange
If Cell.Value = "" Then
GoTo 10
End If
Cell.Value = Application.WorksheetFunction.Round(Cell.Value, 4)
10: Next Cell
End Sub

Re: I love answering my own questions.........

how's this?

Set MyRange = Range("F2:F1000")
For Each Cell In MyRange
If Cell.Value <> "" Then
Cell.Value = Application.WorksheetFunction.Round(Cell.Value, 4)
Next Cell
End Sub