Combobox por defecto en blanco

[omarlext]

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

[Antoni]

Revisa el adjunto.

Copia de vincular hoja.xls

[omarlext]

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

[Antoni]

Disculpa, hubo un error de última hora.

Copia de vincular hoja (1).xls

[omarlext]

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