copy only positive values

[lior03]

hello
i have a column with numerical values.i want to copy to the column next to the active column only values greater then zero.


Dim cell As Range
For Each cell In Range("B3:B29")
If cell.Value < 0 Then
cell.Offset(0, 1).Value = ""
End If
Next


thanks

[Bob Phillips]

Dim cell As Range
For Each cell In Range("B3:B29")
If cell.Value > 0 Then
cell.Offset(0, 1).Value = cell.Value
End If
Next