have you tried using worksheets.count to return the number of sheets
and then call the last sheet by index number...?

Sub SelectLast()
Dim n As Integer
n = ActiveWorkbook.Sheets.Count
Sheets(n).Activate
End Su

--
Message posted from http://www.ExcelForum.com