Hi there,

Not sure what you're talking about here, but maybe something like this ...


Public blnRan as boolean

Sub Testing()
Dim rngCalc as range
Set rngCalc = Workbooks("Book1.xls").Sheets("Sheet1").Range("A1" ).Value
If y = "met" Then
If blnRan = False Then
rngCalc = rngCalc.Value - x
blnRan = True
End If
End If
End Sub


HTH

--
Regards,
Zack Barresse, aka firefytr



"chavicide" wrote
in message ...

i wont to make an if statment in vba for excel that will if y
circumstances are met will minus x from a specific cell once only


--
chavicide
------------------------------------------------------------------------
chavicide's Profile:
http://www.excelforum.com/member.php...o&userid=33798
View this thread: http://www.excelforum.com/showthread...hreadid=535672