sorry, figured it out: Cells syntax was wrong! eek:

For the record, the correct code now reads:

Dim Cell As Variant

For Each Cell In WhtCode.Range("N2:N30")
If Cell.Value < "0" Then
whtData.Range(Cell.Value).Cut
whtData.Range(whtData.Cells(Cell.row, 26)
whtData.Cells(Cell.row, 26)).Select
ActiveSheet.Paste

End If

Next Cel

--
Message posted from http://www.ExcelForum.com