Try this, it worked for me

Sub test()
Range("b4").Formula = "=IF(D102,0,1)"
If Range("B4").Value = 1 Then
MsgBox "The value of B4 is 1"
Else
MsgBox "The value of B4 is 0"
End If
End Sub

HTH
Terry

"fabalicious" wrote in message
...

My macro should check several cells (in the example below it's just one,
D10) for their value and based on that, write a 0 or a 1 into cell B4.
That works so fine so far (also I have some doubts on the type/format
of the number written into B4). The value in B4 now should be used as
an argument in an if-statement (still in the macro). Doesn't work!
Sometimes executes the 'if' and sometimes the 'else'...

Range("B4").Value = "=IF(D102,0,1)"

If Range("B4").Value = 1 Then
..
Else
..
End If

Any help appreciated, cheers

Fabalicious


--
fabalicious
------------------------------------------------------------------------
fabalicious's Profile:
http://www.excelforum.com/member.php...fo&userid=8072
View this thread: http://www.excelforum.com/showthread...hreadid=267514