Hi Red Devil,

Try:

'=============
Public Sub Tester()
Dim SH As Worksheet
Dim rng As Range
Dim rCell As Range

Set SH = ActiveSheet '<<==== CHANGE
Set rng = Intersect(SH.UsedRange, SH.Columns(1))

For Each rCell In rng.Cells
With rCell
If IsNumeric(.Value) Then
If .Value < 10 Then
.Value = .Value - 1
End If
End If
End With
Next rCell
End Sub
'<<=============


---
Regards,
Norman



"ReD-DevIL" wrote
in message ...

Hi, I would like to compare the values from column A then if the values
are smaller than 10 then minus 1 from the values. Is there any codes to
do this?


--
ReD-DevIL
------------------------------------------------------------------------
ReD-DevIL's Profile:
http://www.excelforum.com/member.php...o&userid=32624
View this thread: http://www.excelforum.com/showthread...hreadid=528412