How convert a cell subtype? (from vbDouble to vbString)
 

Are you sure you get vartype 5 on the second test. I would expect
vartype 0 (empty) as your code is clearing the cell.

You are setting newvar to be a string so if you tested that you would
get a vartype of 8. All you are doing to the cell is deleting the
contents and formatting. I don't see how you would expect it to have a
string variable type.

Hope this helps
Rowan

Chet Shannon wrote:
I am trying to convert a cell from sub-type 5 to sub-type 8. (Which is to say
from 'vbdouble' to 'vbstring'.) But when I apply the cstr (convert to
string) function the cell itself won't change sub-types as I want. Any ideas
how to change the sub-type value of a cell?

Here is the code I am using to convert the cell sub-type.
If VarType(Cells(1, 7)) = 5 Then
newvar = CStr(Cells(1, 7))
Cells(1, 7).Clear
End If
But when I then try test the value of the cell I've just changed by issuing
the command vartype(cells(1,7)) the value sub-type still shows up as 5 and
not 8 as it should be for a string. What am I doing wrong? I have the sense
that it has some thing to do with cstr working on variables but not on cells
maybe?

Thanks,
Chet