Hola
debes un rango con las opciones
a, b, c
por ejemplo en d12,d13,d14
luego agregas un un cuadro combinado
y le asignas el rango d12:d14
y lo vinculas con una celda por ejemplo b14
luego en la opcion codigo del cuadro combinado
copias la macro siguiente:
Sub Listadesplegable2_AlCambiar()
rango = Cells(14, 2).Value
Select Case rango
Case 1
Range("a1", "b2").Select
Case 2
Range("a3", "b4").Select
Case 3
Range("a5", "b6").Select
End Select
respuesta = MsgBox("Desea Imrimir", vbYesNo, "Imprimir")
If respuesta = vbYes Then ' El usuario eligió el botón Sí.
Selection.PrintOut Copies:=1, Collate:=True
Else ' El usuario eligió el botón No.
MiCadena = "No" ' Ejecuta una acción.
End If
End Sub
espero te sirva...
