Try this code
Sub RoundMe() Dim Rng As Range, Cel As Range Set Rng = Sheet1.Range("K17:L35") For Each Cel In Rng If Not IsEmpty(Cel) Then Cel = Application.WorksheetFunction.Round(Cel, 2) Next Cel End Sub
Try this code
Sub RoundMe() Dim Rng As Range, Cel As Range Set Rng = Sheet1.Range("K17:L35") For Each Cel In Rng If Not IsEmpty(Cel) Then Cel = Application.WorksheetFunction.Round(Cel, 2) Next Cel End Sub
< ----- Please click the little star * next to add reputation if my post helps you
Visit Forum : From Here
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks