Visual Basic - ayuda con excel

mi problema es el siguiente: como obtengo desde codigo visaul basic el nombre de una hoja activa en excel y como cambio el nombre y activo la nueva hoja gracias.....

Cambiar el nombre de una Hoja Activa:

Dim xlApp As Excel.Application
Dim mySheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
vlRuta = App.Path & "\cpsp.xls"
xlApp.Workbooks.Open vlRuta
Set mySheet = xlApp.Worksheets(1) 'Hoja 1
mySheet.Name = "Nuevo Nombre"
xlApp.DisplayAlerts = False
xlApp.ActiveWorkbook.Save
MsgBox "Proceso Terminado", vbInformation
xlApp.Quit
Set xlApp = Nothing

Si quieres activar una Hoja en especial solamente con esta instruccion:
Set mySheet = xlApp.Worksheets(1) 'Hoja 1
Con el indice (1) sabemos que hoja queremos activar.

Si quieres saber el nombre de un hoja activa
MsgBox "El Nombre de la Hoja es: " & mySheet.Name

voy a probarlo y adaptarlo a mi codigo gracias por la ayuda prestada