Excel - Imprimir varias hojas según valor de celda

Sub ImprimirHojas()

    Desde = Range("B1").Value

    Hasta = Range("B2").Value

    If (Hasta <= Sheets.Count) And (Desde <= Hasta) And (Desde >= 1) Then

       For Cont = Desde To Hasta

           If Cont = Desde Then Sheets(Array(Cont)).Select Replace:=True Else Sheets(Array(Cont)).Select Replace:=False

       Next

       ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

       Sheets(Array(1)).Select Replace:=True

    Else

       MsgBox "Error! Revise el intervalo", vbCritical, "Upss"

    End If

End Sub

Sub ImprimirTodos()

  Range("K11").Value = 1

  Do

    If Range("L24").Value <> 0 Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

    Range("K11").Value = Range("K11").Value + 1

  Loop Until Range("L24").Value = 0 ' Donde esta el nombre del alumno

End Sub