Change dates to text

Posted by Kristy on January 07, 2002 7:38 AM

I want to change some dates to text format without losing the date. Is there anyway to insert an ' at the start of each cell in a selection (B6:B57).

Thanks

Posted by Dan on January 07, 2002 7:52 AM

If you want a simple macro to run, try this:

Sub AddApostrophe()

For Each cell In Selection
cell.Value = "'" & cell.Value
Next cell

End Sub

Then just select a range of cells and run the macro. HTH.

Posted by Kristy on January 07, 2002 8:05 AM

Worked like a charm. Thanks :-)