No encuentra la hoja

ME DA ERROR :
     Sheets(hojaorigen).Select
¿Porque no encuentra la hoja?
Private Sub cmdcopiardatos_Click()
'Hace que la pantalla no parpadee
Application.ScreenUpdating = False
'Defino variables
Dim enero As String
Dim febrero As String
Dim consumos As String
Dim precio_dia As String
Dim OTROS As String
Dim filaorigen As Double
Dim filadestino As Double
Dim hojaorigen As String
Dim valorcelda As String
'Dimensiona variable I para el for-next y C para las
 'columnas , la primera vale 3
Dim I As Integer
Dim C As Integer
C = 3
consumos = ChKCONSUMOS.Value
precio_dia = ChkPRECIO_DIA.Value
OTROS = ChKOTROS.Value
enero = ChKENERO.Value
febrero = CHKFEBRERO.Value
' -- Evaluamos el Check1
        If (ChKCONSUMOS.Value = "Verdadero") Then
        hojaorigen = "consumos"
        Else
        hojaorigen = 0
        End If
 ' -- Le agregamos a la variable resultado un salto de carro o salto de línea
         consumos = consumos & vbNewLine
 ' -- Evaluamos el Check2
        If (ChkPRECIO_DIA.Value = "Verdadero") Then
        hojaorigen = "PRECIO_DIA"
        Else
        hojaorigen = 0
        End If
         precio_dia = precio_dia & vbNewLine
 ' -- Evaluamos el Check3
         If (ChKOTROS.Value = "Verdadero") Then
         hojaorigen = "OTROS"
           Else
        hojaorigen = 0
        End If
        OTROS = OTROS & vbNewLine
' -- Evaluamos el Check4
         If (ChKENERO.Value = "Verdadero") Then
        hojadestino = "ENERO"
           Else
        hojadestino = 0
        End If
    enero = enero & vbNewLine
  ' -- Evaluamos el Check5
         If (CHKFEBRERO.Value = "Verdadero") Then
        hojadestino = "FEBRERO"
           Else
        hojadestino = 0
        End If
   febrero = febrero & vbNewLine
 MsgBox (enero + febrero + consumos + precio_dia + OTROS)
  'Seleciona la hoja con el for indica desde fila 8 hasta fila 11
For I = 8 To 11
    Sheets(hojaorigen).Select
   'Seleciona colun B y con i la fila (seria B8)
       ' con la K&I marca  hast donde ha de llegar.
        ' en nuestro caso la b11.
    Range("B" & I & ":" & "K" & I).Select
    Selection.Copy
ActiveCell.Interior.ColorIndex = 36
'Marca el destino de lo copiado y condiciona con el If
'hay que meter todos If para verificar valor de C
Sheets(hojadestino).Select
   If consumos = "Verdadero" Then
'establece ranco de columna con "C"&C, el C tiene valor inicial
  'de 3 Nº que se lo dimos en variables
    Range("C" & C).Select
    C = C + 9
 'Pega la seleccion si se cumple la condicion; sino va a la otra
    Selection.PasteSpecial Paste:=xlPasteValues
    Selection.End(xlDown).Select
    ElseIf precio_dia = "Verdadero" Then
 'Asigna rango a la cloumna "C"& C+2 (el 2 hace
   ' descender el cursor 2 filas mas abajo; antes c=3,
   ' ahora C = 5 (en cada fichero cambiara el valor
    '3, 3+2, 3+4 ....
        Range("C" & C + 2).Select
        C = C + 9
    Selection.PasteSpecial Paste:=xlPasteValues
    Selection.End(xlDown).Select
       ElseIf OTROS = "Verdadero" Then
        Range("C" & C + 4).Select
        C = C + 9
    Selection.PasteSpecial Paste:=xlPasteValues
    Selection.End(xlDown).Select
    End If
Next
    MsgBox "COPIADO - ¡¡ CAPULLO ¡¡", vbInformation
Application.ScreenUpdating = True
End Sub
Private Sub CMDSALIR_Click()
End 'pARA SALIR DEL FORMULARIO
End Sub