jorgep.tec,

Boa Noite!

Veja se é assim.

Funcionou para o português no 1, no entanto quando acrescentei a matemática para rodar no 2 nada aconteceu.

Acrescentei os parâmetros necessários, no entanto não deu...

Segue o anexo modificado

Desde já, obrigado!

jorgep.tec, neste seu último anexo, no Módulo1 apague a rotina abaixo :
Private Sub Worksheet_Change(ByVal Target As Range)

e depois cole estas linhas:

Dim sSelecaoNum
Dim sSelecaoTexto

Sub DropDownSelect()

    With ActiveSheet.Shapes("Drop Down 1").ControlFormat
        
        'Pode eliminar depois os MSgBox
        'É Só para entendimento
        'Valor Numerico (indice)
        MsgBox "Index Escolhido = " & .Value
        
        'Valor Texto
        MsgBox "Item Escolhido = " & .List(.Value)
    
        sSelecaoNum = .Value
        sSelecaoTexto = .List(.Value)
        
    End With
    
    Call ValorSelecionado

End Sub

Sub ValorSelecionado()

    Select Case sSelecaoNum
    
        Case 1 'portugues
            MsgBox "Voce selecionou valor - " & sSelecaoNum & " - " & sSelecaoTexto
            
            'Aqui a chamada da rotina de portugues
           Call Correio_port
        
        Case 2 'matematica
            MsgBox "Voce selecionou valor - " & sSelecaoNum & " - " & sSelecaoTexto
            
            'Aqui a chamada da rotina de matematica
             Call Correio_mat
        
    End Select

End Sub

Apos clique com o Botão direito em cima do DropDown na planilha, escolha Atribuir Macro e selecione "DropDownSelect"

Faça os testes e veja se é isto.

[]s