Setting & getting blank value to/from a cell ?

[jxb]

To all

I have a xls sheet which contains formulas as follows
In cell C1
= If($A$1<> “”, 99,””)

The idea is that a value is written if A1 contains something (i.e. a value) otherwise no value is written. I do not want 0. I want a blank cell

Then in a macro I pick up the value from cell C1 as follows

Dim ValueToUse As Double
ValueToUse = CDbl(CurrentSh.Cells(1, 3).Value)

If Not (IsEmpty(ValueToUse) Then
‘do something
End if

I am having trouble with the “empty” cell, as I get Type Mismatch. Hence my trying to force the value to a Double using CDbl()

Q: Is there a “smart” way of writing nothing in a cell?

The examples are simplified code

Thanks
Regards
JXB

 

[Fluff]

Try

If Not Range("C1").Value="" Then

 

[jxb]

Thanks Fluff

Totally "bypassing" a variable definition seem to work. Will carry on checking but 1st pass seem to work

I originally defined specific variable names to make the code easier to read (instead of having things like

If Not (CurrentSh.Cells(ThisRow, Rtcol).Value = "" And _
CurrentSh.Cells(ThisRow, RsCol).Value = "") Then

 

[Fluff]

Glad to help & thanks for the feedback