Sigo sin entender

Saludos a todos:

Tengo este código que quiero utilizar para imprimir unas remisiones.
De hecho ya había hecho una consulta al respecto.
Lo que pasa es que ahora he descubierto que sí funciona, pero sólo cuando
selecciono UNA celda...
Si selecciono más de una, recibo un error 'Se requiere un objeto', como si
no estuviera permitido seleccionar un rango de celdas

Suplico a los ojos de los expertos unos minutos de su tiempo para
'descifrar' el error.


'****************************************************************
Sub imprimir_seleccionando()

Dim seleccion As Range

On Error Resume Next
Worksheets("Diciembre").Select

Application.ScreenUpdating = True

Set seleccion = Application.InputBox( _
Prompt:="Seleccione los empleados", _
Title:="Remisiones a imprimir", _
Default:=("$B$7"), _
Type:=8) 'Se supone que el tipo 8 recibe un rango no?

If seleccion Is Nothing Then
MsgBox "No funciona"
Exit Sub
Else
MsgBox "Si funciona"
Worksheets("imprimir").Select
For Each c In seleccion
Range("$B$8").Value = c.Value 'Un cambio en B8 modifica toda la
remisión
ActiveSheet.PrintOut
Next c
MsgBox "Done"
End If

End Sub
'**************************************************************************