excel won't stop saving

[Alan4]

Private Sub Worksheet_Calculate()
Dim test As Workbook
 Set test = Workbooks("test.xls")

If Range("b2").Value = 1 And intOldVal = 0 Then

    test.Save

End Sub

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Address = "$B$2" Then
         intOldVal = Range("B2").Value
         Debug.Print "intOldVal : " & intOldVal
    End If
End Sub

save 1 time only on b2 changing from 0 to 1 occuring multiple times any ideas?>