Visual Basic para Aplicaciones - Subindice fuera del intervalo

Saludos, porque me da el error de subindice fuera del intervalo:

If Workbooks("Base de Costes.xlsm").Worksheets("ESCANDALLO PROVISIONAL") Is Nothing Then
Workbooks("Base de Costes.xlsm").Worksheets("ESCANDALLO").Activate
Else
Workbooks("Base de Costes.xlsm").Worksheets("ESCANDALLO PROVISIONAL").Activate
End If


A ver si me podeis dar alguna pista. Gracias

Prueba con esto.



Saludos!

deneg_nhj Gracias por tu respuesta, pero no entiendo la solucion... me has cambiado simplemente los nombres de las hojas... y evidentemente me sigue saliendo el mismo error ya que el depurador se para en la primera línea.

Alguna idea mas?

Yo he probado el codigo y no da error salvo que no hubiera creado el archivo o el nombre de la hojas esten mal escrito repasalo

Hola cmgcharli, lo raro es que antes si que me funcionaba el código, es para comprobar si existe la hoja "ESCANDALLO PROVISIONAL" en el libro "Base de Costes.xlsm", no tiene porque existir la hoja, el libro si. He mirado y está bien escrito, así q no se q puede ser, tambien he probado de otras formas y lo mismo, como podría arreglarlo?


If Workbooks("Base de Costes.xlsm").Worksheets("ESCANDALLO PROVISIONAL") Is Nothing Then
Workbooks("Base de Costes.xlsm").Worksheets("ESCANDALLO").Activate
Else
Workbooks("Base de Costes.xlsm").Worksheets("ESCANDALLO PROVISIONAL").Activate
End If
----------------

If Workbooks("Base de Costes.xlsm").Worksheets("ESCANDALLO PROVISIONAL").Exists Then
Workbooks("Base de Costes.xlsm").Worksheets("ESCANDALLO").Activate
Else
Workbooks("Base de Costes.xlsm").Worksheets("ESCANDALLO PROVISIONAL").Activate
End If

-------------------------
If activeworbook.Worksheets("ESCANDALLO PROVISIONAL") Is Nothing Then
Workbooks("Base de Costes.xlsm").Worksheets("ESCANDALLO").Activate
Else
Workbooks("Base de Costes.xlsm").Worksheets("ESCANDALLO PROVISIONAL").Activate
End If

Cierto, una disculpa!!!!

Lo que se me ocurre es recorre mediante un For each todas la hojas del libro y comprobar si existe la hoja a buscar en cuyo caso la variable PVarExiste que era false se convierte en true y cuando terminamos el For each segun el valor de esta activamos una hoja u otra

Sub Prueba

Dim Objeto As Object
Dim PVarExiste As Boolean

PVarExiste = False

For Each Objeto In Workbooks("Base de Costes.xls").Worksheets

If Objeto.Name = "ESCANDALLO PROVISIONAL" Then

PVarExiste = True

Exit For

End If

Next

If PVarExiste = False Then

Workbooks("Base de Costes.xls").Worksheet("ESCANDALLO").Activate

Else

Workbooks("Base de Costes.xls").Worksheets("ESCANDALLO PROVISIONAL").Activate

End If