Inserir Face Id no comando Show Popup (VBA)

[Elieber Gonçalves]

Pessoal, boa tarde.

 

Tenho uma planilha onde utilizo um comando para acessar as abas. Quando clico no botão no menu principal o excel exibe uma caixa com as abas que podem ser acessadas através desse botão, conforme imagem anexada.

Segue o Código utilizado:

Sub Menu_DATABASE()
     Sheets("MENU LOGIN").Visible = 0
     Sheets("CYCLIC COUNTS - DASHBOARD").Visible = 0 & FaceId = 48
     Sheets("ILA & IRA - DASHBOARD").Visible = 0
     Sheets("OCCUPATION - DASHBOARD").Visible = 0
     Sheets("DAMAGE - DASHBOARD").Visible = 0
     Sheets("ALLOWANCE - DASHBOARD").Visible = 0
     Sheets("FORMULÁRIO DE NI").Visible = 0
     Sheets("RESUMO DE CONTAGENS").Visible = 0
     Sheets("RESUMO DE OCUPAÇÃO").Visible = 0
     Sheets("RELATÓRIO DE ALLOWANCE").Visible = 0
     Sheets("REQUISIÇÃO PARA AJUSTE").Visible = 0
     Sheets("FORMULÁRIO DE CADASTRO").Visible = 0
     Sheets("GERENCIAMENTO DE USUÁRIOS").Visible = 0
     Sheets("TABELA DE FERIADOS").Visible = 0
     Sheets("TABELA DE PRODUTOS").Visible = 0
     Sheets("TABELAS").Visible = 0
     Sheets("HISTÓRICO DE ALTERAÇÕES").Visible = 0
     
    Application.CommandBars("Workbook tabs").ShowPopup 5, 100
    Application.ScreenUpdating = False
    
     Sheets("MENU LOGIN").Visible = 1
     Sheets("CYCLIC COUNTS - DASHBOARD").Visible = 1
     Sheets("ILA & IRA - DASHBOARD").Visible = 1
     Sheets("OCCUPATION - DASHBOARD").Visible = 1
     Sheets("DAMAGE - DASHBOARD").Visible = 1
     Sheets("ALLOWANCE - DASHBOARD").Visible = 1
     Sheets("FORMULÁRIO DE NI").Visible = 1
     Sheets("RESUMO DE CONTAGENS").Visible = 1
     Sheets("RESUMO DE OCUPAÇÃO").Visible = 1
     Sheets("RELATÓRIO DE ALLOWANCE").Visible = 1
     Sheets("REQUISIÇÃO PARA AJUSTE").Visible = 1
     Sheets("FORMULÁRIO DE CADASTRO").Visible = 1
     Sheets("GERENCIAMENTO DE USUÁRIOS").Visible = 1
     Sheets("TABELA DE FERIADOS").Visible = 1
     Sheets("TABELA DE PRODUTOS").Visible = 1
     Sheets("TABELAS").Visible = 1
     Sheets("HISTÓRICO DE ALTERAÇÕES").Visible = 1
    
End Sub

 

Minha Dúvida é se posso inserir um Face Id em cada opção de aba dentro desse mesmo código.

 

Alguém pode me ajudar?