Finding the Format of a Cell

[GusEvans]

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

[Martin]

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

[GusEvans]

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