Thanks Joel, that works fine
donwb
"joel" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>
> You probably has a macro in your personnel.xls file that got lost. This
> code will work
>
>
>
> Sub AppendBelow(MyRange As Range, MyLine As String)
>
> MyColumn = MyRange.Column
>
> Set LastRow = Sheets(MyRange.Parent.Name).Cells(Rows.Count,
> MyColumn).End(xlUp)
> LastRow.Offset(1, 0) = MyLine
>
> End Sub
>
>
> --
> joel
> ------------------------------------------------------------------------
> joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
> View this thread:
> http://www.thecodecage.com/forumz/sh...d.php?t=154400
>
> Microsoft Office Help
>