This solution works great. Thanks so much for the help!

On Sat, 17 Jun 2006 16:48:33 +0200, "Ardus Petus"
<ardus.petus@laposte.net> wrote:

>With error trapping:
>
>With Activecell
> if .column > 1 and .row < rows.count then
> .cut destination:=.offset(1,-1)
> end if
>end with
>
>HTH