Append Below

[donwb]

I thought Excel 2003 had a function useable in VBA called "AppendBelow"
which allowed the addition of a new bottom line of data to an existing data
range.
but cant find it.
If it exists what is the correct syntax based on the outline below.

MyLine is the data to be appended
My Range is the Named Range to append to

Code???
AppendBelow(MyRange,MyLine)
donwb

 

[joel]

You probably has a macro in your personnel.xls file that got lost. Thi
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 Su

 

[donwb]

Thanks Joel, that works fine
donwb