Problemas al cambiar Combobox

[icemoonlove]

Buen día a todos antes que nada, gracias a este foro que me ha ayudado ya en varias ocasiones,

esta vex tengo un problema con un combobox, al cambiar el valor no cambia los textbox a los que esta

vinculado.

Private Sub CbPaciente_Change()
'Encabezado
    CbSesión = ""
    TbDisciplina.Value = ""
    TbEdad.Value = ""
    TbSexo.Value = ""
    TbFecha.Value = ""
    TbSesión.Value = ""
End sub

Private Sub CbSesión_Change()
    If CbSesión = "" Then Exit Sub
    Application.ScreenUpdating = False
    Hoja = CbPaciente.Value
    Valor = CbSesión.Value

    Set busca = Sheets(Hoja).Range("A5:FH34").Find(Valor, LookIn:=xlValues, lookat:=xlWhole)
    If Not busca Is Nothing Then
    Copiar = busca.Address
'Encabezado
    Me.TbDisciplina.Text = Sheets(Hoja).Range(Copiar).Offset(0, 2).Value
    Me.TbEdad.Text = Sheets(Hoja).Range(Copiar).Offset(0, 7).Value
    Me.TbSexo.Text = Sheets(Hoja).Range(Copiar).Offset(0, 5).Value
    Me.TbFecha.Text = Sheets(Hoja).Range(Copiar).Offset(0, 4).Value
    Me.TbSesión.Text = Sheets(Hoja).Range(Copiar).Offset(0, 150).Value
End Sub

[/PHP]

Tengo alrededor de 160 columnas, ¿tendrá algo que ver?

Gracias por su ayuda, no tengo idea de que puede ser puesto que antes si me servia, de hecho hice otro archivo con menos columnas y este si funciona.