Excel - Capturar nobre de hoja

Como podria capturar el nombre de la hoja de excel en que estoy trabajando usando vba para despues utilizarlo como variable.

Te recuerdo que el nombre de las hojas es distinto al nombre en si de la hoja, pero para lo que quieres puedes usar la instrucción NAME, en el ejemplo que te pongo asigna el nombre de la primera hoja del libro lo asigna a una variable luego la muestra.

Sub Renombrar()
nombrehoja = Sheets(1).Name
MsgBox nombrehoja
End Sub