Finding the Format of a Cell
 

Have a large dynamically populated worksheet (from another application).
Some cells are date formats, currency, text, etc. I need allof the cells to
be formatted as text without losing their 'look and feel'. I can't use
=Cell("Format",A1) in VBA and can't find any equivalent. On dates I could
say the equivalent of -
If '=Cell("Format",A1)' = "D4" Then Format(Activecell.Value,"m/d/yy")

Any Ideas?
TIA-
--
Gus Evans

Finding the Format of a Cell
 

if you use a Variant variable (which I guess you must), you can use the
TypeName property (see VBA help)

"GusEvans" wrote:

Have a large dynamically populated worksheet (from another application).
Some cells are date formats, currency, text, etc. I need allof the cells to
be formatted as text without losing their 'look and feel'. I can't use
=Cell("Format",A1) in VBA and can't find any equivalent. On dates I could
say the equivalent of -
If '=Cell("Format",A1)' = "D4" Then Format(Activecell.Value,"m/d/yy")

Any Ideas?
TIA-
--
Gus Evans

Finding the Format of a Cell
 

Thanks - worked like a charm.
--
Gus Evans


"Martin" wrote:

if you use a Variant variable (which I guess you must), you can use the
TypeName property (see VBA help)

"GusEvans" wrote:

Have a large dynamically populated worksheet (from another application).
Some cells are date formats, currency, text, etc. I need allof the cells to
be formatted as text without losing their 'look and feel'. I can't use
=Cell("Format",A1) in VBA and can't find any equivalent. On dates I could
say the equivalent of -
If '=Cell("Format",A1)' = "D4" Then Format(Activecell.Value,"m/d/yy")

Any Ideas?
TIA-
--
Gus Evans