amigo tengo este combobox en la hoja1 con el listado de hojas ocultas, cuando selecciono la hoja3 por ejemplo.........este me envia sin prolemas hasta la hoja, pero cuando regreso a la hoja1 (por medio de un boton) , el combobox muestra la ultima seleccion ( en este caso la hoja3) pero si vuelvo a seleccionar esta misma hoja3 no hace nada, tengo que seleccionar otra hoja y despues de esto, si puedo vollver a seleccionarla (hoja3). no se si sea la solucion .....pero cuando regrese a la hoja1 encontrar el combobox en blanco.....no se si sea necesario.........este es el codigo y el archivo

Private Sub UserForm_Initialize()

ComboBox1.RowSource = "hoja1!"

End Sub

Private Sub ComboBox1_Change()

On Error Resume Next

Application.ScreenUpdating = False

Dim fila, ran, gosheet As String

Dim i As Integer

Dim hoja As Worksheet

x = 0

fila = 1

For Each hoja In Worksheets

x = x + 1

'Escribe el nombre de la hoja en la columna Z

Worksheets("Hoja1").Cells(fila, 26) = hoja.Name

fila = fila + 1

Next

'Creo el rango

ran = Range("Z1", Range("Z1").End(xlDown)).Address

'Lleno listbox con nombre de hojas

ComboBox1.ListFillRange = ran

gosheet = ComboBox1

'Selecciono la hoja

Sheets(gosheet).Select

Application.ScreenUpdating = True

If hoja1.ComboBox1.Value = "Hoja1" Then

hoja1.Visible = True

Else

hoja1.Visible = True

End If

If hoja1.ComboBox1.Value = "Hoja2" Then

Hoja2.Visible = True

Else

Hoja2.Visible = False

End If

If hoja1.ComboBox1.Value = "Hoja3" Then

Hoja3.Visible = True

Else

Hoja3.Visible = False

End If

If hoja1.ComboBox1.Value = "electri" Then

electri.Visible = True

Else

electri.Visible = False

End If

End Sub

Private Sub Worksheet_Activate()

hoja1.Visible = True

Hoja2.Visible = False

Hoja3.Visible = False

electri.Visible = False

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

vincular hoja.zip

Revisa el adjunto.

Copia de vincular hoja.xls

como esta, me aparece este error.....gracias

Disculpa, hubo un error de última hora.

Copia de vincular hoja (1).xls

que pena molestarlo, este es un ejemplo..........que me ha servido mucho para plantear los problemas y entenderlos ------------------- , en el archivo original , que es muy parecido a este, ...en las hojas tengo datos que me realizan diferentes calculos, pero al ocultar las hojas los calculos que dependen de estas , las macros no corren ,,,,,,sera que se puede hacer algo ??? muchas gracias