Obrigado pessoal, mas eu já consegui Alterei o código que consultava as matérias, caso alguém queira, segue abaixo: Dim Intervalo As Range Dim ws As...

O problema é que são muitos registros, se eu colocar em cada registro um código vai ficar muito pesado, preciso de uma solução em vba!

Isso eu sei, quero saber como pegar a sigla quando eu selecionar a matéria!