ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1,0) = "Apples"



"J.W. Aldridge" wrote in message
...
For each new sheet created (workbook code), paste named range "apples"
at the next available/empty row in column A.