Ok, just spotted an archived post, that does the trick

Dim i As Integer
i = Sheets.Count
Sheets(i).Select

Very clever