Seleccionar hojas

No dices cual es el criterio de la selección de hojas.
Como ejemplo, vamos a suponer que se tratara de seleccionar todas las hojas cuyo nombre comience por "Hoja". El código podría ser:

Sub SeleccionarHojas()
Dim wksH As Worksheet
Dim mtr(), n

For Each wksH In Worksheets
If Left(wksH.Name, 4) = "Hoja" Then
n = n + 1
ReDim Preserve mtr(1 To n)
mtr(n) = wksH.Name
End If
Next
Worksheets(mtr()).Select

Set wksH = Nothing
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Jose A. Domínguez" escribió en el mensaje news:%23i4zrmS$

Como puedo seleccionar varias hojas de calculo a la vez si estas son
variables. A veces necesito seleccionar 3 otras 5 , etc..
Ahora mismo lo estoy haciendo de la siguiente manera Sheets(Array("Hoja1",
"Hoja2")).Select
pero esto solo me sirve para seleccionar la hoja1 y la hoja2. Como puedo
hacer para que el argumento de Array sea variable.

Gracias.