try
on error resume next

--
Don Guillett
SalesAid Software

"JOUIOUI" wrote in message
...
I use this code to move amounts from column K (11) to column G in the same
row and then delete the contents in the cell in column K. My problem is
that
I get an error if there is not amounts in column K. I'm not sure how I
would
alter this to say if there is text in col K move it to column G so I don't
get the soft edit. Any ideas. Thank you


Set rng = Columns(11).SpecialCells(xlConstants)
For Each Cell In rng
Cells(Cell.Row, "G").Value = Cell.Value
Next
rng.ClearContents