1 ActiveWorkbook.sheets.count
2 to put the name of the active sheet  in cell  A2
cells(2,1)=activesheet.name
3 sheets(1).activate
4 sheets(sheets.count).activate

There may be minor errors in the above but in principle they should work
with a bit of tweaking.