[vba]
Sub Calc()
Dim cell As Range
For Each cell In Sheet1.UsedRange
If Not cell.HasFormula Then
cell.Value = Application.Ceiling(cell.Value, 0.25)
End If
Next
End Sub
[/vba]
[vba]
Sub Calc()
Dim cell As Range
For Each cell In Sheet1.UsedRange
If Not cell.HasFormula Then
cell.Value = Application.Ceiling(cell.Value, 0.25)
End If
Next
End Sub
[/vba]
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Posting Permissions
Reply With Quote