Save file by formula, criteria met, vba code

[Alan4]

I have three workbooks open one with live data and the other two linked to it. I want one with linked data to save when criteria are met.
Cell b2=if(or(b3="ok",b15="ok"...),1,0). When b2=1 save file.

In VBA code I tried wksheet change, activate and if b2=1 activeworkbook.save.

It only saves if I am typing on the sheet. It doesn't save when changed by formula. In other words if criteria met and b2=1 (changed by formula) doesn't' save file. This is the last thing I need and have been press save button but would like to automate.
Welcome replies.
Thanks

[bulina2k]

Hi there!
My ideea is to use a static flag and to watch the value in B2 on every worksheet change event:

Please Login or Register  to view this content.

Hope it fits your needs...

[Alan4]

I tried this and the msgbox doesn't come up so 'not working' verified file isn't saved. I wonder if the sheet needs to be activated or something (b2) selected? thank you for the reply

[Alan4]

I did use part of you code and this appears to be working.
[CODE]
Private Sub Worksheet_Calculate()
Application.EnableCancelKey = xlInterrupt
Static save_flag As Boolean
Dim test As Workbook
Set test = Workbooks("test.xls")

If Range("b2") = 0 Then save_flag = False

If Range("b2") = 1 Then

If save_flag = False Then

test.Save
save_flag = True


End If

End If

End Sub
[CODE]