i can't start it now , thanks for help, i will try both as soon as possible
the condition is a generic ..if A1 = TRUE

so it should sound like this..

Sub demo()
Dim A1 As Boolean
A1 = True
If A1 Then..

...end sub


"Gary''s Student" wrote:

Sub demo()
Dim WhatIsTruth As Boolean
WhatIsTruth = True
If WhatIsTruth Then
x = Shell("cmd.exe /c C:\Userguide.exe", 1)
Range("B1").Value = 0
End If
End Sub
--
Gary''s Student - gsnu200768


"N+" wrote:

hi all, i need to make this work..
if condition "true",
then launch an exe file on disk and write 0 (zero) in a B1 cell..
ty if u can help me