Finding all the Formats used in an Excel Sheet

[Guest]

Hi,
I want to find all the formats which have been used in excel sheet.
Can you please provide some VBA/Code to retrieve the same?

Regards,
Brijesh

 

[excel_googler]

Hi Brijesh..

This may not be a direct solution….but still.. Create a short cut ke
for this macro. You may go to each cell and press shortcut key t
display the format..Expand “ If” clause, for other formats also…

Sub ContentChk()
If Application.IsText(ActiveCell) = True Then
MsgBox "Text"
Else
If ActiveCell = "" Then
MsgBox "Blank cell”
Else
End If
If ActiveCell.HasFormula Then
MsgBox "formula"
Else
End If
If IsDate(ActiveCell.Value) = True Then
MsgBox "date"
Else
End If
End If
End Su