Saberexcel

Estas funções do excel retornam o formato da célula em inglês e no formato_local(BR)
Saberexcel - Funções personalizadas

'retorna o formato idioma ingles
Function Retorna_Formato(Cell as Range) as String
Retorna_Formato = Cell.NumberFormat
End Function

'retorna o formato idioma local(Br)
Function Retorna_Formato_Local(Cell as Range) as String
Retorna_Formato_Local = Cell.NumberFormatLocal
End Function

= Retorna_Formato(A1)
= Retorna_Formato_Local(A1)

 
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel