Error 9 en tiempo de ejecucion

Hola a todos, tengo el siguiente codigo:

Dim TC As String
Dim SI As String

Private Sub Workbook_Open()
Dim Ruta As String, Hoja As String, Fecha As String, TC As String, SI As
String
Ruta = "\\isa\Cuentas Corporativas\Control\cajas diarias\"
Hoja = "CC"
Fecha = Format(Date, "_mmm-dd-yyyy")
With Me.Worksheets(CC)
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True,
Password:="oki", UserInterfaceOnly:=True
TC = InputBox("Porfavor, ingrese la TC de hoy", "Tasa de Cambio")
SI = InputBox("Porfavor, ingrese su saldo incial", "Saldo Inicial")
.Range("B4") = TC
.Range("K41") = SI
.Range("b3") = Now()
End With
Me.Sheets.Copy
'Me.Sheets(Array("hoja1", "hoja2")).Copy
ActiveWorkbook.SaveAs Filename:=Ruta & Hoja & Fecha,
FileFormat:=xlWorkbookNormal
Me.Close False
End Sub

y me sale un error 9 en tiempo de ejecucion? alguna sugerencia????????