Guru do Excel e Power BI

Boa noite, estou precisando de uma macro que gera um Cnpj valido aleatório na textbox, o do CPF eu consegui como segue no exemplo anexado, mas já garimpei a internet atras deste código e não consigo , tenho um aqui que gera mas é atravéz de formula, mas preciso de um vba. Grato a quem puder me ajudar.

Bom dia!!

Favor ler as regras do fórum!!
viewtopic.php?f=0&t=4

Regra nº 11:
Nós preferimos que os membros não façam postagens cruzadas (quando a mesma postagem é feita em diferentes fóruns). Mas quando isso ocorrer, os membros devem deixar claro os links para as postagens cruzadas.

Favor referenciar as postagens cruzadas!!
http://www.planilhando.com.br/forum/vie ... 10&t=25824

Veja se ajuda:
Fonte:
http://www.exceldoseujeito.com.br/2008/ ... r-parte-i/
Att

Obrigado AlexandreVba por me responder, mas o código ai que você postou ele só formata o cnpj, o que preciso é de um codigo que é capaz de gerar um cnpj válido paar efeito dos meus estudos assim com tem esses geradores online, mas eu quero fazer em vba. Grato