Dialogo para inserir Data

Montei um Dialogo (Date1) para inserir data em uma célula com a opção Suspensa, Sim ( ativada ), gostaria de ao escolher um dia, Hoje ou Nenhum fosse direcionada para a célula definida em macro sem necessidade de acionar o Botão [OK] que executa a macro readDate1.

Ou seja ao escolher um dia, Hoje ou Nenhum, fosse acionada a macro readDate1.

Para executar o Dialogo coloquei um botão/imagem da setinha da validação ( nada haver com validação ).

Segue arquivo teste.|attachment

Descrição da imagem

Obs.: Sei que existem as opções de Extenção, pycalendar.oxt e calcalc.oxt, porém corro o risco de usar hoje e amanhã em uma versão nova da LibreOffice deixar de funcionar. Com Macro no arquivo não haverá problema.

OOOOppppsssss, acabei de lembrar que posso acionar Macro diretamente nas propriedades do Campo de data, no evento Texto-modificado.

Descrição da imagem

Ok funcionando sem usar o botão [OK], exceto para opção Nenhum, tem que digitar Espaço, para mim sem problema.

Arquivo alterado.|attachment