Hola a todos, quisiera hacer lo siguiente: a partir de un número de semana
metido por el usuario, que me muestre que mes y que días conforman esa
semana.


JUAN M AFAN DE RIBERA
=====================
Hola,

la siguiente función te devolverá una cadena separada 
por ";" en la que estarán contenidas las fechas de los 
siete dias de la semana que pases a la funcion en su 
argumento. Por ejemplo, llamas a la función así:

    Debug.Print DiasSemana(10)

y se escribirán en la ventana Inmediato las fechas de esos 
siete días

la función:

Function DiasSemana(numSemana As Integer) As String
Dim PrimerDiaAño As Date
Dim DiaSemana1Ene As Integer
Dim i As Integer
Dim cad As String

    PrimerDiaAño = DateSerial(Year(Date), 1, 1)
    DiaSemana1Ene = Weekday(PrimerDiaAño, vbMonday)
    
    For i = 6 To 0 Step -1
        cad = cad & DateAdd("d", (numSemana * 7) _
            - DiaSemana1Ene - i, PrimerDiaAño) & ";"
    Next
    DiasSemana = cad
    
End Function