Creo que estoy ciego...

...porque no encuentro el error.

Dice mi jefe que sufro de 'ceguera de taller', o sea que de tanto estar en
esto no veo lo que los demás, con una mente fresca si podrán...

Muchachos, ¿qué error tengo que no consigo hacer que esto funcione??????

'**********************************************************
Sub imprimir_seleccionando()
Dim seleccion As Range

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

Application.ScreenUpdating = True
Set seleccion = Application.InputBox( _
Prompt:="Seleccione los empleados", _
Title:="Remisiones a imprimir", _
Default:=("$B$7"), _
Type:=8)

If seleccion Is Nothing Or seleccion.Columns.Count > 1 Then
MsgBox "No fonuncia"
Exit Sub
Else
MsgBox "Si fonuncia"
Worksheets("imprimir").Select
For Each c In ActiveSheet.Range(seleccion.Address)
Range("$B$8").Value = c.Value
'ActiveSheet.PrintOut
Next c
MsgBox "Done"
End If

End Sub
'*****************************************************
Gracias a todos!!!!