Envio de hoja

hola, Carlon !

... libro con varias Hojas la primera es la general y las otras se llaman 1ªSem, 2ªSem, etc.
... las hojas que tienen el nombre de las semana se deben enviar todos los jueves
... que al abrir el libro y ser Jueves envie por email la hoja de la correspondiente semana
...si es posible despues de las 10:00 AM.

[creo que] lo 'interesante' sera [el como] determinar cual es...
-> 'la hoja de la correspondiente semana' [1ªSem, 2ªSem, etc.]
-> de acuerdo al jueves 'de la semana en curso' -???-
[ya comentaras alguna forma de 'rescatar' dicha 'correspondencia'] ;)

copia/pega las siguientes lineas...
en el modulo de codigo del libro [ThisWorkbook] ==Private Sub Workbook_Open()
Select Case Format(Date - 2, "ddd")
Case "Jue", "Thu"
If Format(Time, "h") >= 10 _
Then EnviarHoja _
Else Application.OnTime TimeValue("10:10"), "EnviarHoja"
End Select
End Sub
Private Sub EnviarHoja()
Worksheets("Pon aqui cual es la hoja correspondiente").Copy
ActiveWorkbook.SendMail "Pon aqui la direccion de correo", "y el Asunto"
ActiveWorkbook.Close False
End Sub

saludos,
hector.