Quitar un elemento

Hola a todos... he vuelto :D

Dim TC As String
'Dim Nombre As String

Private Sub workbook_open()
TC = InputBox("Porfavor, ingrese la TC de hoy", "Tasa de Cambio")
'Nombre = InputBox("A que nombre el Recibo?", "Nombre")

Const strRuta As String = "C:\Documents and Settings\Javier\Escritorio\"
'Directorio donde se almacenarán los libros
Me.SaveAs _
Filename:=strRuta & "CE_" & _
Format(Date, "dd-mm-yyyy") & "_" & _
Format(Time, "(hh·mm·ss)") & "_" & Nombre, _
FileFormat:=xlWorkbookNormal
'ActiveSheet.Unprotect "oki"
Range("B3") = Nombre
Range("E6:E14") = TC
Range("G3") = Now()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:="oki"
End Sub


Quiero quitar el elemento "nombre" de este procedimiento pero me da un error
cuando lo saco, alguna sugerencia, muchas gracias!