Não tenho como ver seu anexo no momento, mas supondo que a Caixa de Combinação seja o tipo de controle de formulário "Drop-down" e o nome do mesmo esteja o padrão "Drop-down 1", a rotina abaixo fará o que pretende, mas lembre-se, se for este o controle de ajustar o numero do drop down ou o nome.

Deixei como opção para Visualizar - PrintPreview, mas para imprimir direto, troque por PrintOut.

Sub PrintSheetDropdown()
    Dim ws As Worksheet
    Dim sText As DropDown
    Dim sNome
    
    Set ws = ActiveSheet
    Set sText = ws.Shapes("Drop-down 1").OLEFormat.Object

    sNome = sText.List(sText.ListIndex)

    Worksheets(sNome).PrintPreview

End Sub

Obrigado senhor Mauro Coutinho, era exatamente o que eu precisava.