Por favor, ayuda!!

Necesito que la macro que estoy haciendo, al principio, me pida el
nombre de la hoja con la que vamos a trabajar y despues lo utilice a lo
largo del programa. Como se hace?
Ademas quiero que antes que nada, cierre todas las hojas, menos la que
nos interesa. Este ha sido mi intento, pero me da un error al llegar a
Sheets(i).Delete
Alguien me puede ayudar?Como se utiliza luego el nombre que tengo
almacenado en la variable Nombre?
Muchas muchas gracias

Dim Nombre As String
Nombre = InputBox("Como se llama la primera hoja?",
"DatosCompletosBalanced")
' Borra todas las hojas menos la primera
Application.DisplayAlerts = False
Dim i As Integer
For i = Sheets.Count To 1 Step -1
If Sheets(i).Name <> "& Nombre" Then Sheets(i).Delete
Next i