Error con hojas ocultas

Buenas!
Estoy trabajando con unos formularios en excel, que necesitan trabaja
condatos de una hoja oculta.
Yo creo que hago bien el acceso a ella, pero me da error a la hora d
acceder a un rango.
¿Que puedo hacer?
Gracias

Sheets.Add
ActiveSheet.Name = "Dim1"
Sheets("Dim1").Select
ActiveWindow.SelectedSheets.Visible = False
Worksheets("Dim1").Range("a2").Select
Do Until IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
conf = conf + 1
Loop
For k = 2 To conf + 1
frmDim1_3.cboPaneles1.AddItem (Worksheets("Dim").Range("a"
k).Value)
Next
frmDim1_3.cboPaneles1.ListIndex = 0
frmDim1_3.txtRendimiento1.Value = Range("b2").Value
frmDim1_3.txtPotencia1.Value = Range("c2").Value
frmDim1_3.txtArea1.Value = Range("d2").Value
frmDim1_3.txtCoeficienteT1.Value = Range("e2").Value
frmDim1_3.txtPerdidas1.Value = Range("f2").Value
frmDim1_3.txtTension1.Value = Range("g2").Value

Mas o menos eso es lo que hago,¿que hago mal

dargent
dargento's Profile: http://www.msusenet.com/member.php?userid4
View this thread: http://www.msusenet.com/t-187055645