How do I remove the ' from the begining of value in a cell
 

I have a column containing dates but some begin with a ' which I need to
remove programatically.... any ideas. I already have the for next loop set up
but unable to find the correct method for detecting the ' and also removing
it to leave the date entry intact.

How do I remove the ' from the begining of value in a cell
 

Hi

Range("A1") = Range("A1")*1

--
Regards

Roger Govier


"Givnik" wrote in message
...
I have a column containing dates but some begin with a ' which I need
to
remove programatically.... any ideas. I already have the for next loop
set up
but unable to find the correct method for detecting the ' and also
removing
it to leave the date entry intact.

How do I remove the ' from the begining of value in a cell
 

Sub tic_killer()
Set rr = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConst ants, xlTextValues)
For Each r In rr
If r.PrefixCharacter = "'" Then
r.Value = r.Value
End If
Next
End Sub
--
Gary''s Student - gsnu200733

How do I remove the ' from the begining of value in a cell
 

This worked a treat, many thanks for your help.....

"Gary''s Student" wrote:

Sub tic_killer()
Set rr = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConst ants, xlTextValues)
For Each r In rr
If r.PrefixCharacter = "'" Then
r.Value = r.Value
End If
Next
End Sub
--
Gary''s Student - gsnu200733

How do I remove the ' from the begining of value in a cell
 

Hi Roger, Many thanks I did try this but got the following error 'Type
Mismatch', not sure but can you multiply a date? anyway I do appreciate your
response...



"Roger Govier" wrote:

Hi

Range("A1") = Range("A1")*1

--
Regards

Roger Govier


"Givnik" wrote in message
...
I have a column containing dates but some begin with a ' which I need
to
remove programatically.... any ideas. I already have the for next loop
set up
but unable to find the correct method for detecting the ' and also
removing
it to leave the date entry intact.