VBA ignore empty cells in Range

[kramart]

Hi,

I have a range called "round" where i want to run this code :

Sub round()

     Dim rRng As Range
     Set rRng = Sheet1.Range("round")

     For Each cell In Range("round")
     cell.Value = WorksheetFunction.round(cell.Value, 2)
     Next cell
   
End Sub

However, I wanty to ignore all empty cells within the range. How can I do that ?

Cheers

 

[Scott T]

Try

Sub round()
     Dim rRng As Range
     Set rRng = Sheet1.Range("round")
     For Each cell In Range("round")
        If cell <> "" Then
            cell.Value = WorksheetFunction.round(cell.Value, 2)
        End If
     Next cell
   
End Sub

 

[njimack]

Use SpecialCells...

Sub round()
Application.ScreenUpdating = False
     Dim rRng As Range
     Set rRng = Sheet1.Range("round")
     For Each cell In rRng.SpecialCells(xlCellTypeFormulas)
        cell.Value = WorksheetFunction.round(cell.Value, 2)
     Next cell
   
Application.ScreenUpdating = True
   
End Sub

 

[kramart]

Thank you !