try
Set rng = Range("h2:h" & cells(rows.count,"H").end(xlup).row)


--
Don Guillett
SalesAid Software

"Jeff" wrote in message
...
Hello,

This is the VBA macro that I use:
Set rng = Range("h2:h167")
For Each cell In rng
If IsNumeric(cell.Value) Then
cell.Value = Application.WorksheetFunction. _
RoundDown(cell.Value, 2)
End If
Next
I'd like to set the rng to automatically start from H2 to the last row in
column H.
Thanks,