valide string de formato para valores numéricos no excel (dna) - excel, excel-vba, excel-interop, excel-dna, vba

Eu estou usando um excel dna para gerenciar um addin do Excel. Lá, eu estou aplicando um formato numérico para uma célula usando Range.NumberFormat = myformat;. Eu não sei de antemão a string myFormat, ela é definida em um backend.

Nos bons casos, o myFormat é algo como "0.00; (0,00) "ou" ### 0,00 _ €; [Red] - # ## 0,00 _ € ", em outros algo como" toto ".No último caso, a exibição na célula excel é ########## ou algo que não faz sentido.

Então, existe uma maneira de verificar se a string myFormat é um formato numérico de validação para o Excel antes de aplicar o formato à célula?

Obrigado, Mario.

Respostas:

Sub tester()
Dim rng1 As Range, rng2 As Range

Set rng1 = Range("F1")" Formatted with 2 decimal places
Set rng2 = Range("G1")" Formatted with 6 decimal places

If rng1.NumberFormat <> rng2.NumberFormat Then
Beep
End If

End Sub