MACRO que somente seja executada se determinada aba está ativa

[Jedison]

Inseri na barra de MENUS do CALC um menu específico para a minha planilha, que é composta por diversas abas, sendo que muitas delas permanecerão ordinariamente OCULTAS.
Não conheço muito ainda a programação de MACROS e preciso que uma determinada macro, que está vinculada a um comando desse MENU que disponibilizei na Barra de Menus (superior) somente seja executada se a ABA ativa for a que nomeei “Novo Delito”, caso contrário, exiba uma mensagem de alerta e encerre.
Alguém pode me ajudar com isso?
Também agradeço se alguém puder me indicar um local para consulta dos comandos e rotinas usados na programação de Macros, pois ainda tenho um pouco de dificuldade de entender como funcionam instruções como:

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "aTableName"
args2(0).Value = "Novo Delito"
dispatcher.executeDispatch(document, ".uno:Show", "", 0, args2())

Grato.

[schiavinatto]

As referencias para Basic encontra aqui:

Documentação para Macros Basic - Calc - Referencia

Apenas como referencia vou deixar aqui alguns links interessantes de documentação de macros em basic, para quem está começando a estudar esse assunto: Just for reference I will leave here some interesting links of documentation of macros in basic, for those who are beginning to study this subject: Solo para referencia, les dejo aquí algunos enlaces interesantes de documentación de macros en básico, para aquellos que están comenzando a estudiar este tema: Solo per riferimento lascerò qui alcun…

Sobre a Macro, estou verificando…

[schiavinatto]

Ola @Jedison, acresente estas linhas no Inicio de sua macro:

Dim PlanAtiva As Object
PlanAtiva = ThisComponent.getCurrentController.getActiveSheet()
Var1 = PlanAtiva.getName()
If Var1 = "Novo Delito" Then

E estas antes do End Sub

 Else
msgbox "Planilha ativa não e"  &chr(13)& "Novo Delito"
 EndIf

---

ATENÇÂO:: Para dar mais detalhes a sua pergunta, use na pergunta ou abaixo. Não use Adicionar resposta para comentário. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha a esquerda da resposta, para finalizar a pergunta.

[Jedison]

Perfeito.
Valeu (de novo) @schiavinatto

Como a operação a ser realizada em caso positivo é complexa, no THEN coloquei um GOTO para pular para um rótulo.

E ficou assim:

sub Repor_Pena
rem Verifica se a ABA ativa é a NOVO DELITO
Dim PlanAtiva As Object
PlanAtiva = ThisComponent.getCurrentController.getActiveSheet()
PA = PlanAtiva.getName()
If PA = "Novo Delito" Then
   goto Segue_repor_pena
else Dim Msg, Estilo, Titulo, Resposta, Opcoes
Msg = "Utilize essa opção apenas no módulo adequado."
Estilo = 0                   ' Define buttons.
Titulo = "Algoritmo JEDI"    ' Define title.
MsgBox(Msg, Estilo, Titulo)
end if
goto encerra ' Se não for a planilha adequada, encerra
rem Se está na ABA correta, prossegue
Segue_repor_pena:   ' Define o Rótulo "Segue_repor_pena"
dim document   as object
dim dispatcher as object
(Restante do código e, no final:)
encerra:
end sub